﻿PROGAMUL PROG1 ASM Să luăm un exemplu foarte simplu, cu care se începe orice manual de învăţare a limbajului de asamblare, de program sursă care să permită afişarea pe ecranul monitorului a unui text color Vom proiecta un program sursă care după asamblare şi ediţie de legături (link-editare) să asigure crearea unui executabil de tip COM Textul programului sursă este următorul: model tiny code ; Acest program afiseaza mesajul color "Salut POPOR!" ; prin scrierea directa in memoria video ; In memoria VGA: primul octet este codul ASCII al caracterului, ; iar urmatorul octet contine atributele caracterului de afisat ; Schimbarea octetului de atribut atrage dupa sine schimbarea ; culorii de fundal si a culorii caracterului de afisat ; Atributul de afisare al caracterului este dat de structura: ; primul nimb (high) de 4 biti defineste culoarea de fond ; (background), iar nimb-ul al doilea (4 biti) defineste ; culoarea de scriere a caracterului (foreground) dupa codul ; de culoare dat de urmatorul tabel: ; ╔══════╤═════════╤═════════════════════╗ ; ║ hex │ bin │ culoare ║ ; ╟──────┼─────────┼─────────────────────╢ ; ║ 0 │ 0000 │ negru ║ ; ║ 1 │ 0001 │ albastru ║ ; ║ 2 │ 0010 │ verde ║ ; ║ 3 │ 0011 │ cyan ║ ; ║ 4 │ 0100 │ rosu ║ ; ║ 5 │ 0101 │ magenta ║ ; ║ 6 │ 0110 │ maron ║ ; ║ 7 │ 0111 │ gri deschis ║ ; ║ 8 │ 1000 │ gri inchis ║ ; ║ 9 │ 1001 │ albastru deschis ║ ; ║ a │ 1010 │ albastru inchis ║ ; ║ b │ 1011 │ cyan deschis ║ ; ║ c │ 1100 │ rosu aprins ║ ; ║ d │ 1101 │ magenta aprins ║ ; ║ e │ 1110 │ galben ║ ; ║ f │ 1111 │ alb ║ ; ╚══════╧═════════╧═════════════════════╝ ; FLASH: ; Caracterele semi-grafice se obtin prin apasarea combinatiei ; de taste: ALT + nnn unde n este o tasta numerica apartinand ; tastaturii numerice grupate: ; ╔═════╤══════╦═════╤══════╦═════╤══════╦═════╤══════╦═════╤══════╗ ; ║ ALT+│ Carac║ ALT+│ Carac║ ALT+│ Carac║ ALT+│ Carac║ ALT+│ Carac║ ; ║ nnn │ -ter ║ nnn │ -ter ║ nnn │ -ter ║ nnn │ -ter ║ nnn │ -ter ║ ; ╟─────┼──────╫─────┼──────╫─────┼──────╫─────┼──────╫─────┼──────╢ ; ║ 002 │ ☻ ║ 180 │ ┤ ║ 196 │ ─ ║ 213 │ ╒ ║ 229 │ σ ║ ; ║ │ ║ 181 │ ╡ ║ 197 │ ┼ ║ 214 │ ╓ ║ 230 │ μ ║ ; ║ 011 │ ♂ ║ 182 │ ╢ ║ 198 │ ╞ ║ 215 │ ╫ ║ 231 │ τ ║ ; ║ 014 │ ♫ ║ 183 │ ╖ ║ 199 │ ╟ ║ 216 │ ╪ ║ 232 │ Φ ║ ; ║ 015 │ ☼ ║ 184 │ ╕ ║ 200 │ ╚ ║ 217 │ ┘ ║ 233 │ Θ ║ ; ║ 021 │ § ║ 185 │ ╣ ║ 201 │ ╔ ║ 218 │ ┌ ║ 234 │ Ω ║ ; ╚═════╧══════╩═════╧══════╩═════╧══════╩═════╧══════╩═════╧══════╝ ; ╔═════╤══════╦═════╤══════╦═════╤══════╦═════╤══════╦═════╤══════╗ ; ║ ALT+│ Carac║ ALT+│ Carac║ ALT+│ Carac║ ALT+│ Carac║ ALT+│ Carac║ ; ║ nnn │ -ter ║ nnn │ -ter ║ nnn │ -ter ║ nnn │ -ter ║ nnn │ -ter ║ ; ╟─────┼──────╫─────┼──────╫─────┼──────╫─────┼──────╫─────┼───── ╢ ; ║ 169 │ ⌐ ║ 186 │ ║ ║ 202 │ ╩ ║ 219 │ █ ║ 235 │ δ ║ ; ║ 170 │ ¬ ║ 187 │ ╗ ║ 203 │ ╦ ║ 220 │ ▄ ║ 236 │ ∞ ║ ; ║ 171 │ 1/2 ║ 188 │ ╝ ║ 204 │ ╠ ║ 221 │ ▐ ║ 237 │ φ ║ ; ║ 172 │ 1/4 ║ 189 │ ╜ ║ 205 │ ═ ║ 222 │ ▌ ║ 238 │ ε ║ ; ║ 174 │ « ║ 190 │ ╛ ║ 206 │ ╬ ║ 223 │ ▀ ║ 239 │ ∩ ║ ; ║ 175 │ » ║ 191 │ ┐ ║ 207 │ ╧ ║ 224 │ α ║ 240 │ ≡ ║ ; ║ 176 │ ░ ║ 192 │ └ ║ 208 │ ╨ ║ 225 │ β ║ 241 │ ± ║ ; ║ 177 │ ▒ ║ 193 │ ┴ ║ 209 │ ╤ ║ 226 │ Γ ║ 242 │ ≥ ║ ; ║ 178 │ ▓ ║ 194 │ ┬ ║ 210 │ ╥ ║ 227 │ π ║ 243 │ ≤ ║ ; ║ 179 │ │ ║ 195 │ ├ ║ 211 │ ╙ ║ 228 │ Σ ║ 244 │ ⌠ ║ ; ╚═════╧══════╩═════╧══════╩═════╧══════╩═════╧══════╩═════╧══════╝ org 100h; start: ; Definirea punctului de intrare in program ; jmp start1 ; Daca am fi avut ceva date, aici le introduceam ; ;start1: ; Setarea modului video mov ax, 3 ; Modul text 80x25, 16 culori, 8 pagini ; video (ah=0, al=3) int 10h ; Seteaza efectiv acest mod video! ; Opreste efectul de palpaire (blinking) si permite afisarea ; pentru toate cele 16 culori: mov ax, 1003h; Opreste efectul de palpaire mov bx, 0 ; Permite 16 culori de background (BL=0) int 10h ; Se lanseaza serviciile BIOS pentru display ; Setarea registrului pentru a contine adresa memoriei video, in ; vederea lucrului direct in meooria video: mov ax, 0b800h mov ds, ax ; Afisarea mesajului "Salut POPOR!" ; Se utilizeaza o pereche de doi octeti primul (aflat la adresa para), ; va contine codul ASCII al caracterului, iar al doilea octet, ; aflat la adresa impara va contine atributul de afisare care ; consta in codul de culoare (pentru fundal si pentru caracter) mov ds: , byte ptr 'S' ; In memoria video se intr "S" mov ds: , byte ptr 'a' ; In memoria video se intr "a" mov ds: , byte ptr 'l' ; In memoria video se intr "l" mov ds: , byte ptr 'u' ; In memoria video se intr "u" mov ds: , byte ptr 't' ; In memoria video se intr "t" mov ds: , byte ptr ' ' ; In memoria video se intr " " mov ds: , byte ptr 'P' ; In memoria video se intr "P" mov ds: , byte ptr 'O' ; In memoria video se intr "O" mov ds: , byte ptr 'P' ; In memoria video se intr "P" mov ds: , byte ptr 'O' ; In memoria video se intr "O" mov ds: , byte ptr 'R' ; In memoria video se intr "R" mov ds: , byte ptr '!' ; In memoria video se intr "!" ; Se utilizeaza aceiasi culoare pentru toate caracterele: mov cx, 12 ; Numarul de caractere de afisat mov di, 03h ; Incepand cu caracterul "S" c: mov ds:[di], byte ptr 10010100b ; Pe fond albastru ; deschis(1001), se scrie cu rosu(0100) add di, 2 ; Salt la urmatorul cod ASCII din ; memoria video de tip VGA loop c ; Executie bucla pana la epuizarea celor ; 12 caractere ale mesajului ; Asteapta apasarea unei taste: mov ah, 0 ; Functia de apasare a unei taste int 16h ; Lansarea functiilor BIOS de tastatura ; ret ; Retur, cand o folosim ca ; procedura apelata mov ax,4C00h; Terminare program int 21h ; Lansare efectiva a terminarii end start ; Definirea punctului de intrare * * * În cazul cel mai general, orice program sursă, scris în limbaj de asamblare, poate fi prelucrat (dezvoltat), trecând prin mai multe faze, pentru ca în final să ajungă un program executabil (fie cu extensia exe, fie cu extensia com) În figura 1, prezentăm fazele (etapele) de dezvoltare a programelor scrise în limbaj de asamblare Programele scrise în limbaj de asamblare şi care vor fi supuse asamblării cu ajutorul produsului TASM, trebuie să aibă - de obicei - extensia asm şi nu trebuie să conţină coduri ascunse introduse de editorul de texte (de obicei se foloseşte comanda DOS: EDIT, sau componenta Windows: Notepad) Dacă programul sursă posedă extensia asm, atunci nu este necesară precizarea extensiei în sintaxa comenzii de asamblare, programul TASM recunoaşte ca fiind implicită extensia asm Programele sursă sunt păstrate, sub formă de fişiere sursă, pe disc magnetic şi ele reprezintă fişierele de intrare în TASM Asamblorul TASM analizează din punct de vedere sintactic şi semantic fiecare linie a textului sursă, afişând în procesul de asamblare şi eventualele erori de sintaxă şi atenţionările depistate, pe ecranul monitorului Rezultatul asamblării se materializează prin crearea unui fişier, având acelaşi nume ca şi fişierul sursă, însă cu extensia OBJ, numit fişier obiect Mesajele de eroare, atenţionările şi textul asamblat se păstrează într-un fişier care are extensia LST Dacă erorile depistate în fază de asamblare depăşesc nivelul 3 de eroare, atunci fişierul obiect nu se creează Toate erorile de asamblare (numite şi erori formale) trebuie supuse operaţiunii de corecţie, care se face manual de către dezvoltatorul de programe, folosind din nou editorul de texte pentru realizarea programului sursă Ciclul: EDIT → Program sursă → Asamblare cu TASM → Erori formale? (varianta DA) → EDIT se va repeta până la eliminarea completă a listei mesajelor de eroare şi (eventual) a atenţionărilor Dacă s-a ieşit pe varianta NU, adică nu mai sunt erori formale, toate au fost corectate şi puse la punct, avem obţinut fişierul obiect ( OBJ) şi putem trece la faza următoare, numită faza de linkeditare şi care se realizează cu ajutorul programului TLINK În această fază pot fi legate şi alte module obiect (care sunt fişiere obiect obţinute în asamblări anterioare) module obiect aflate în biblioteci utilizator şi/sau module din biblioteci sistem, toate aceste module obiect (din biblioteci utilizator sau biblioteci sistem) trebuie să aibă extensia OBJ Rezultatul linkeditării este reflectat în fişierul executabil EXE sau COM, fişier având acelaşi nume ca şi fişierul obiect, dar extensia EXE sau COM după cum nu este ori este prezent parametrul /t în comanda TLINK Tot în această fază se creează încă un fişier fişier, având acelaşi nume ca şi fişierul obiect, dar extensia MAP Următoarea fază din dezvoltarea programului este LANSAREA ÎN EXECUŢIE a executabilului si observarea erorilor de logică Dacă se iese pe varianta DA la testarea ERORILOR DE LOGICĂ, atunci trebuie făcute corecţii direct în programul sursă pentru eliminarea acestor erori, după care se va relua ciclul mare: EDIT → TASM → TLINK → LANSARE IN EXECUŢIE → EDIT, până la obţinerea satisfacţiei depline dorite de dezvoltatorul de programe * * * Revenind la programul prog1 asm precizăm că operaţiunea de asamblare a programului sursă se face cu comanda externă: 1 tasm /la /zi prog1 asm unde: /la – permite generarea, in cadrul procesului de asamblare, a listing-ului extins (fişierul prog1 lst), iar /zi – asigură introducerea informaţiei de depanare completă (debug) Pentru mai multe detalii vezi anexa B 1 Dacă la salvare programul sursă a fost prevăzut cu extensia asm, atunci nu mai este necesar să mai precizăm extensia, deoarece asamblorul tasm va considera că are implicit extensia asm (este suficient să tastăm: tasm /la /zi prog1) Dacă nu sunt erori formale, în urma operaţiunii de asamblare, se poate trece la următoarea, de editare a legăturilor Această operaţiune se efectuează cu ajutorul programului tlink, având grijă să folosim parametrul de creare a unui executabil de tip COM (/t) şi să se continue completarea informaţiilor necesare în faza de depanare (/v) Pentru acest program, comanda de editare de legături are următoarea sintaxa: 1 tlink /t /v prog1 obj 1 Prog1 exe Figura 1 Dezvoltarea programelor în Limbajul de asamblare TASM Sursa: R Mârşanu – Sistemele de operare MS-DOS şi UNIX, Ed Tehnică, Bucureşti 1995, pag 19 Editorul de legături tlink consideră că extensie implicită obj (este suficient să tastăm: tlink /t /v prog1) Mai multe despre parametrii utilizaţi în comanda tlink se pot vedea în anexa B 2 PROGAMUL PROG2 ASM Cu scop didactic, vă prezentăm în continuare un program simplu care face o adunare şi o scădere, apoi afişeaza pe ecran rezultatul în binar Textul sursă al programului, scris în limbaj de asamblare este următorul: model tiny code org 100h start: ; Punctul de intrare in program mov al, 5 ; Culege in AL valoarea 5 zecimal ; sau 00000101b, sau 05h mov bl, 10 ; Culege in BL valoarea 10d sau 0ah ; sau 00001010b ; Calculeaza 5 + 10 = 15 (decimal) sau 0fh sau 00001111b add bl, al ; Aduna continutul lui AL in ; BL si rezultatul in BL ; Calculeaza 15 - 1 = 14 (decimal) sau 0eh sau 00001110b sub bl, 1 ; Scade valoarea 1 din BL ; Afiseaza rezultatul in binary: mov cx, 8 ; Incarca numarul de biti in CX print: ; Eticheta de afisare mov ah, 2 ; Incarca in AH numarul functiei de afisare mov dl, '0' ; Incarca caracterul ASCII "0" in DL test bl, 10000000b; Testeaza daca primul bit din ; BL este nul jz zero ; Daca DA, salt la eticheta ZERO mov dl, '1' ; Daca NU, Muta caracterul ASCII "1" ; in semiregistrul DL zero: ; Eticheta pentru cazul in care este nul int 21h ; Lansarea efectiva a afisarii car "1" shl bl, 1 ; Depl spre stinga a rezultatului, cu un bit loop print ; Se reia afisarea pana cand CX se va anula ; Afisarea sufixului pentru exprimarea binara a rezultatului: mov dl, 'b' ; Culege caracterul ASCII "b" in DL int 21h ; Afisarea efectiva a caracterului de ; exprimare in cod binar ; Asteapta apasarea unei taste: mov ah, 0 ; Culege numarul functiei de asteptare ; a apasarii unei taste int 16h ; Invocarea intreruperii de gestiune ; BIOS a tastaturii ; ret ; Retur, cand o folosim ca ; procedura apelata mov ax,4C00h; Terminare program int 21h ; Lansare efectiva a terminarii end start ; Definirea punctului de intrare Asamblarea se face cu comanda: tasm /la /zi prog2 iar editia de legaturi cu comanda: tilink /t /v prog2 În final, dupa execuţia pogramului, pe ecranul monitorului se va afişa valoarea: 00001110b (adică echivalentul binar al valorii zecimale 14d) PROGAMUL PROG3 ASM Vă propunem un program, din care se pot învăţa câteva tehnici de programare simple aplicate în limbaj de asamblare, şi care face calculul sumei elementelor unui vector Programul sursă pentru calculul sumei elementelor vectorului este următorul: model tiny code 386 ; Nume "calculul sumei elementelor unui vector" org 100h ; Directiva pentru crearea unui fisier COM start: ; Punctul de intrare in program jmp inceput ; Salt peste zona de date ; Variabilele: vector db 9, 8, 7, 6, 5; Vectorul si elementele sale m db 0 ; Unde se memoreaza suma inceput: ; Calculul sumei elementelor unui vector, ; memorarea rezultatului in M si afisarea acestuia in cod binar mov cx, 5 ; Culege in CX nr de elemente al vectorului mov al, 0 ; AL va memora suma (mai elegant ar fi ; fost de folosit: XOR AL,AL) mov bx, 0 ; BX contine indexul in vector next: ; Eticheta de efectuare a calculului ciclic add al, vector[bx]; Adunarea continutului lui AL a ; elementului urmator din vector inc bx ; Urmatorul element al vectorului loop next ; Repeta pana cand CX = 0 mov m, al ; Memoreaza rezultatul final in M ; Afisarea rezultatului in binar: mov bl, m ; Culege valoarea rezultatului M in BL mov cx, 8 ; Culege in CX numarul pozitiilor ; binare pe care se va afisa rezultatul Afis: ; Eticheta de reluare a afisarii mov ah, 2 ; Se pune in AH numarul functiei de ; afisare a continutului din DL mov dl, '0' ; Se testeaza daca primul bit al ; rezultatului este nul test bl, 10000000b; Testul efectiv asupra primului bit jz zero ; Este primul bit zero? DA - Salt la ; eticheta ZERO mov dl, '1' ; NU, muta caracterul "1" in DL si ; continua in secventa zero: ; Etich de continuare daca primul bit este nul int 21h ; Lanseaza afisarea unei pozitii a ; rezultatului, exprimat in binar shl bl, 1 ; Decaleaza rezultatul aflat in ; BL cu o noua pozitie spre stanga, pentru ; a ajunge urmatorul bit pe prima pozitie loop Afis ; Se va relua procedura de afisare pana ; cand CX devine egal cu zero ; Afisarea sufixului de data exprimata in binar: mov dl, 'b' ; Pregatirea caracterului "b" pentru ; a fi afisat in coada rezultatului, ; va reamintim ca in AL se afla deja ; valoarea functiei de afisare (2) int 21h ; Afisarea efectiva a caracterului "b" mov dl, 0ah ; Se introduce in DL valoarea ASCII a ; caracterului NEW LINE (10d sau 0ah) int 21h ; Executie NEW LINE mov dl, 0dh ; Se introduce in DL valoarea ASCII a ; caracterului CARRY RETURN (13d sau 0dh) int 21h ; Executie CARRY RETURN ; Afisarea rezultatului in zecimal: mov al, m ; Culege rezultatul in AL call AfisAL ; Apelarea procedurii de afisare, in ; zecimal a continutului lui AL ; Asteapta apasarea unei taste: mov ah, 0 ; Se introduce in AH numarul ; functiei de asteptare a apasarii ; unei taste int 16h ; Lansarea intreruperii 16h care ; gestioneaza tastatura calculatorului ; ret ; Retur, cand o folosim ca ; procedura apelata din exterior mov ax,4C00h; Terminare program int 21h ; Lansare efectiva terminare program AfisAL proc ; Procedura de afisare, in zecimal, a ; continutului semiregistrului AL cmp al, 0 ; Rezultatul este nul? jne AfisAL r; NU, salt la eticheta AFIsAL R push ax ; DA, Salveaza registrul AL in ; stiva proprie mov al, '0' ; Culege caracterul ASCII "0" in AL mov ah, 0eh ; Incarca in AH numarul functiei de ; afisare caracter din AL si ; actualizarea pozitiei cursorului int 10h ; Lansarea functiilor BIOS de lucru cu ; adaptorul video si monitor pop ax ; Restaureaza AX din stiva ret ; Retur la procedura principala AfisAL r: ; Daca rezultatul nu este nul pusha ; Se salveaza toate ; registrele din stiva interna mov ah, 0 ; Incarca 0 in AH cmp ax, 0 ; Compara continutul lui AX cu 0 je Pn ; AX este nul? DA, salt la ; eticheta PN mov dl, 10 ; NU, incarca baza de numeratie ; in semiregistrul DL div dl ; Imparte continutul lui AX la ; DL, catul se da in AL si ; restul in AH call AfisAL r; Apelul procedurii AfisAL r mov al, ah ; Muta restul in AL add al, 30h ; Aduna la AL 30h pentru a-l ; converti in caracter ASCII afisabil mov ah, 0eh ; Incarca in AH numarul functiei de ; afisare caracter din AL si ; actualizarea pozitiei cursorului int 10h ; Lansarea functiilor BIOS de lucru cu ; adaptorul video si monitor jmp Pn ; Salt neconditionat la eticheta PN Pn: ; Eticheta de inlantuire popa ; Reface toti registri din stiva ret ; Retur in modulul apelant endp ; Sfarsitul procedurii de afisare end start ; Definirea punctului de intrare in ; program si sf logic al sursei Asamblarea se face cu comanda: tasm /la /zi prog3 iar editia de legaturi cu comanda: tlink /t /v prog3 În final, dupa execuţia pogramului, pe ecranul monitorului se va afişa atât valoarea în binar rezultatului (sumei elementelor componente ale vectorului), cât şi valoarea sumei în zecimal Astfel se va afişa, pe primul rând valoarea : 00100011b, iar pe al doilea rând valoarea zecimală 35 PROGAMUL PROG4 ASM În continuare vă prezentăm un program didactic care arată cu setează instrucţiunea CMP fanioanele (indicatorii de condiţii) model tiny code ; Acest program arata cum seteaza instructiunea CMP fanioanele org 100h start: jmp inceput ; Zona de date Msg1 db " Introduceti un numar sau orice caracter pentu a iesi: $" Egal5 db " Este egal cu 5! ", 0Dh,0Ah, "$" Sub5 db " Este mai mic ca 5!" , 0Dh,0Ah, "$" Peste5 db " Este mai mare ca 5!" , 0Dh,0Ah, "$" ; In mod uzual instructiunea CMP este folosita inainte ; de instructiunile de salt conditionat ca : JE, JA, JL, JAE ; Pentru o foarte buna intelegere, a ceea ce se intampla in acest ; program, va recomand ca dupa asamblare si lincheditarea ; programului, sa lansati executabilul folosind depanatorul ; TD si prin apasari succesive a tastei F7 (Trace) sa ; urmariti evolutia indicatorilor de conditii si a ; registrelor generale inceput: ; (Setat/Resetat) ; 4 este egal cu 4 mov ah, 4 ; Incarca valoarea 4 in AH mov al, 4 ; Incarca valoarea 4 in AL cmp ah, al ; Compara continutul semiregistrelor nop ; Pauza ; (Setat/Resetat) ; 4 este mai mare ca 3 mov ah, 4 ; Incarca valoarea 4 in AH mov al, 3 ; Incarca valoarea 3 in AL cmp ah, al ; Compara continutul semiregistrelor nop ; Pauza ; -5 = 251 = 0fbh ; (Setat) ; 1 este mai mare ca -5 mov ah, 1 ; Incarca valoarea 1 in AH mov al, -5 ; Incarca valoarea -5 in AL cmp ah, al ; Compara continutul semiregistrelor nop ; Pauza ; (Resetat) ; 1 este mai mic decat 251 mov ah, 1 ; Incarca valoarea 1 in AH mov al, 251 ; Incarca valoarea 251 in AL cmp ah, al ; Compara continutul semiregistrelor nop ; Pauza ; (Setat) ; -3 este mai mic decat -2 mov ah, -3 ; Incarca valoarea -3 in AH mov al, -2 ; Incarca valoarea -2 in AL cmp ah, al ; Compara continutul semiregistrelor nop ; Pauza ; (Setat) ; -2 este mai mare decat -3 mov ah, -2 ; Incarca valoarea -2 in AH mov al, -3 ; Incarca valoarea -3 in AL cmp ah, al ; Compara continutul semiregistrelor nop ; Pauza ; (Resetat) ; 255 este mai mare decat 1 mov ah, 255 ; Incarca valoarea 255 in AH mov al, 1 ; Incarca valoarea 1 in AL cmp ah, al ; Compara continutul semiregistrelor nop ; Pauza ; Si acum, un mic "joc": Joc: mov dx, offset Msg1; Adresa relativa a sirului de caractere ; ce urmeaza a fi afisat mov ah, 9 ; Incarca nr functiei in AH, scrierea unui ; sir de caractere, a carui adresa se afla ; in DX, pana la intalnirea caracterului "$" int 21h ; Lansarea efectiva in lucru a functiei ; Citeste caracter in AL: mov ah, 1 ; Incarca nr functiei de citire in AH int 21h ; Lansarea efectiva in lucru a functiei cmp al, '0' ; Compara continutul lui AL cu caracterul "0" jb stop ; Salt la eticheta STOP cmp al, '9' ; Compara continutul lui AL cu caracterul "9" ja stop ; Salt la eticheta STOP cmp al, '5' ; Compara continutul lui AL cu caracterul "5" jb SSub5 ; Salt daca continutul lui AL este mai mic ; decat valoarea "5" ja PPeste5 ; Indicatorii raman nemodificati si se face ; salt daca continutul lui AL este mai mare ; decat valoarea "5" mov dx, offset Egal5; Adresa relativa a sirului de caractere ; ce urmeaza a fi afisat jmp Afis ; Apelarea procedurii de afisare a mesajului SSub5: mov dx, offset Sub5 ; Adresa relativa a sirului de caractere ; ce urmeaza a fi afisat jmp Afis ; Apelarea procedurii de afisare a mesajului PPeste5: mov dx, offset Peste5; Afis: mov ah, 9 ; int 21h ; Lansarea efectiva in lucru a functiei jmp Joc ; Bucla de testare a valorilor stop: ; ret ; Retur, cand o folosim ca procedura apelata mov ax,4C00h ; Terminare program int 21h ; Lansarea efectiva in lucru a functiei end start ; Definirea punctului de intrare Asamblarea se face cu comanda: tasm /la /zi prog4 iar editia de legaturi cu comanda: tilink /t /v prog4 În timput execuţiei programului, utilizatorul este invitat de mesajul afişat pe ecran Introduceti un numar sau orice caracter pentu a iesi: să introducă o valoare numerică de la 0 la 9, iar programul compara valoarea introdusă de utilizator cu valoarea 5, şi pe acelaşi rând, va afişa rezultatul comparării (după caz: Este egal cu 5!, Este mai mic ca 5! sau Este mai mare ca 5!) Orice alt caracter tastat duce la terminarea automată a programului PROGAMUL PROG5 ASM În următoarele rânduri se va prezenta un program sursă în limbaj de asamblare, în care se generează o valoare binară care se aduna cu o valoare hexazecimală generată, din rezultatul obţinut se scade o valoare octală generată iar acest ultim rezultat se afişează pe ecranul monitorului ca o valoare 'binară' De asemenea, acesta este un program cu caracter didactic simplu care are următorul text sursă: model tiny code org 100h start: ; Incarcarea valorii binare (hex: 5h) mov al, 00000101b ; Incarcarea valorii hexazecimale: mov bl, 0ah ; Incarcarea valorii octale: (hex: 8h) mov cl, 10o add al, bl ; Calculeaza: 5 + 10 = 15 (0fh) sub al, cl ; Calculeaza: 15 - 8 = 7 ; Afiseaza rezultatul in binar: mov bl, al ; Culege in BL valoarea din AL mov cx, 8 ; Numarul de iteratii ale buclei print: ; Eticheta de revenire in bucla mov ah, 2 ; Functia de afisare mov dl, '0' ; In DL se culege caracterul ASCII „0” test bl, 10000000b ; Testarea primului bit jz zero ; Este zero? DA, salt la eticheta ZERO mov dl, '1' ; NU, In DL se culege caracterul ASCII „1” zero: ; Bitul este zero int 21h ; Afiseaza caracterul DL shl bl, 1 ; Decaleaza BL cu o pozitie spre stanga loop print ; Repeta in bucla pana CX va fi nul ; Afisarea sufixului binar: mov dl, 'b' ; Culegee in DL codul caracterului „b” int 21h ; si il afiseaza pe ecranul monitorului ; Asteapta apasarea unei taste: mov ah, 0 mov ah, 0 ; Functia de asteptare tasta int 16h ; Lansarea efectiva a intreruperii ; de gestiune a tastaturii ; ret ; Retur normal, cand o folosim ca ; procedura apelata mov ax,4C00h; Functia de terminare a programului int 21h ; Lansarea functiilor DOS end start end start ; Sfarsitul logic al programului si ; definirea punctului de intrare Asamblarea se face cu comanda: tasm /la /zi prog5 iar editia de legaturi cu comanda: tilink /t /v prog5 În final, dupa execuţia pogramului, pe ecranul monitorului se va afişa valoarea: 00000111b (adică echivalentul binar al valorii zecimale 07d) PROGAMUL PROG6 ASM Prezentăm în continuare, un program scris în limbaj de asamblare, care este ceva mai complex, şi care solicită cunoştinţe din domeniul lucrului cu fişiere de pe suport magnetic, mai exact cu fişiere din directorul curent La începutul programului se solicita introducerea, de la tastatură, a numelui şi extensia fişierului care trebuie căutat în directorul curent Textul programului sursă este: ; =============================================================== ; Acest program confirma printr-un mesaj afisat pe ecran, daca ; un fisier a carui nume este dat de la tastatura, se gaseste sau ; nu in directorul curent ; =============================================================== model tiny code segment assume cs:code,ds:code org 100h ; Program de tip COM start: ; Punctul de intrare in program (prima ; instructiune executabila a programului) jmp inceput ; Salt peste zona de date mesaj db 13,10,'Introduceti numele fisierului: $' numef db 15,0,' '; Numele fisierului mes1 db 13,10,'Fisierul se afla in directorul curent?(DA/NU)= $' path db ' ',0; Calea de acces atrib dw 0 ; Atributele fisierului da db 'DA $' ; DA, fisierul se afla in dir curent nu db 'NU $' ; NU, fisierul nu se afla in dir curent ; ============= Proceduri ======================================== exec proc ; Procedura de cautare a primului fisier ; care are numele care trebuie cautat mov dx,offset path; In perechea DS:DX contine adresa ; caii de cautare a fisierului mov cx,atrib; Atributele fisierului se culeg in CX mov ah,4Eh ; AH contine numarul functiei DOS de ; cautare a primului fisier care are ; numele celui cautat (Find 1st Maching ; File) int 21h ; Lansarea functiei in executie, returneaza ; in AX codul de eroare daca CF = 1, altfel ; informatiile de fisier in DTA ret ; Revenire din procedura exec endp ; Sfarsitul logic al procedurii ; ================================================================== inceput: ; Definirea etichetei de inceput lea dx,mesaj; Culege adresa efectiva a sirului MESAJ mov ah,09h ; Se pune in AH numarul functiei de afisare ; a sirului, pana la intalnirea car "$" int 21h ; Lansarea efectiva a functiei de afisare lea dx,numef; Culege adresa efectiva a sirului care ; contine numele fisierului mov ah,0Ah ; Culege numarul functiei DOS de citire ; a unui sir intr-un buffer dat de DS:DX int 21h ; Lansarea efectiva a functiei de citire lea dx,mes1 ; Culege adresa efectiva a sirului MES1 mov ah,09h ; Culege in AH numarul functiei DOS de ; afisare a sirului din DS:DX pana la "$" int 21h ; Lansarea efectiva a functiei de afisare lea si,numef+2; Incarca adresa efectiva pentru sirul ; sursa in SI (primii doi octeti contin ; lungimea maxima si lungimea reala a ; sirului), sursa ce contine numele ; fisierului de cautat lea di,path ; Incarca adresa efectiva a sirului ; destinatie ce va contine calea de cautat bucla: ; Se face o copiere in bucla mov al,byte ptr[si]; Culege indexat in AL octetul ; sirului sursa cmp al,13 ; Este cumva CR (Carry Return)? je continua; DA, S-a ajuns la finele sirului, Salt ; la eticheta CONTINUA mai departe mov byte ptr[di],al; NU, Salveaza indexat octetul in ; calea de destinatie inc si ; Incrementeaza indexul sursa SI inc di ; Incrementeaza indexul destinatie DI jmp bucla ; Se va relua BUCLA de tratare a urmato- ; rului octet al caii de cautare continua: ; DA s-a ajuns la sfarsitul sirului call exec ; Apelul procedurii a primului fisier ; care are numele care trebuie cautat jc n ; Daca CF = 1, s-a depistat o eroare in ; cautarea fisierului, Salt la N lea dx,da ; Daca nu-i eroare, deci a fost gasit ; fisierul, se afiseaza un mesaj ; de comfirmare (DA) mov ah,09h ; Numarul functiei de afisare a unui ; sir de caractere pana la car "$" int 21h ; Lanseaza efectiv functia DOS de afisare jmp cont ; Salt neconditionat la CONT-inuare n: ; Fisierul nu a fost gasit in dir curent lea dx,nu ; Culege in DX adresa efectiva a mesajului ; de atentionare privind rezultatul negativ mov ah,09h ; Numarul functiei de afisare a unui ; sir de caractere pana la car "$" int 21h ; Lanseaza efectiv functia DOS de afisare cont: ; Continua cu terminarea programului mov ah,4ch ; In AH culege numarul functiei de ; terminare normala a programului int 21h ; Lanseaza efectiv functia DOS de terminare code ends ; Sfarsitul logic al segmentului de cod end start ; Sfarsitul logic al programului sursa cu ; precizarea punctului de intrare ; in program (Important la incarcarea ; programului in memorie si precizarea ; valorii ce se incarca automat de ; catre Sistemul de Operare in CS ; Acesta este motivul pentru care DS, ; ES si SS trebuie incarcate de ; utilizator) Asamblarea se face cu comanda: tasm /la /zi prog6 iar editia de legaturi cu comanda: tilink /t /v prog6 După ce programul a fost pus la punct şi după lansarea în execuţie a acestuia, mai întâi pe ecranul monitorului se va afişa mesajul: „Introduceti numele fisierului: „ Utilizatorul introduce apoi numele fisierului ce urmează a fi căutat în directorul curent, în formatul nume fis ext, adică în formatul utilizat în toate comenzile DOS, după care programul va căuta acest fişier În funcţie de rezultatul căutării se va afişa mesajul „Fisierul se afla in directorul curent?(DA/NU)= DA„ sau mesajul „Fisierul se afla in directorul curent?(DA/NU)= NU„, după care programul se termină PROGAMUL PROG7 ASM În acest program se cere utilizatorului să tasteze o dată calendaristică, care se presupune a fi data de creare a unor fişiere ce urmează a fi şterse, caută fisierele în directorul curent care au fost create la acea dată şi cere permisiunea ştergerii lor, realizându-se astfel o ştergere selectivă Programul sursă scris în limbaj de asamblare este: ; Program care permite stergere a fisierelor create la o anumita ; data introdusa de utilizator prin tastare ; Stergerea se face cu confirmare din partea utilizatorului model tiny code segment assume cs:code,ds:code org 100h ; Program de tip COM start: ; Definirea punctului de intrare in program jmp inceput ; Salt la eticheta INCEPUT ;========= Zona de date ================================== nume db '* *',0 DTA db 64 dup('$') titlu db 10,13,'Stergerea tuturor fisierelor care au o anumita data $' fdata db 10,13,'Introduce-ti data sub forma : zz-ll-aaaa',10,13,' $' Raspuns db ' - stergeti fisierul: (d/n) ? $' lfcr db 10,13,'$' ; Rand nou NouaData db 11,0,' ' x db 10 luna db 0 anul dw 0 eroare db 10,13,'Nu exista nici un fisier cu data specificata $' data dw 0 data1 dw 0 nrfis db 0 ;========= Zona de cod ================================== AFIS macro mesaj ; Macrou de afisare a unui mesaj lea dx,mesaj; Incarca adresa mesajului in dx mov ah,09h ; Codul functiei de afisarea a unui sir de int 21h ; caractere care se termina cu caracterul '$' endm ; Sfarsit macrou inceput: ; Prima instructiune de dupa zona de date 386 ; Se lucreaza si cu instructiuni pt I80386 mov ax,cs ; Culege adresa segmentului de cod in AX mov ds,ax ; Initializarea registrului de segment DS afis titlu ; Afisarea titlului afis fdata ; Descrierea formatului in care trebuie ; tastata data calendaristica de cautat lea dx,NouaData; Adresa pentru citirea de la tastatura ; a unui sir de caractere si mov ah,0ah ; incarcarea lui in variabila cu int 21h ; numele NOUADATA afis lfcr ; Afisarea unui rand nou ; Conversia datei din codul ASCII in hexazecimal si apoi in format ; specific memorarii datei unui fisier (anul, luna si ; ziua care se scriu pe cate 2 octeti) mov al,byte ptr NouaData+3; Conversia unitatilor zilei, sub al,30h ; conversia ASCII-zecimal prin scaderea ; ecartului 30h xor ah,ah ; Zerorizarea lui AH = 0 mov data1,ax; Muta unitatile zilei in DATA1 mov al,byte ptr NouaData+2; Conversia zecilor zilei, sub al,30h ; conversia ASCII-zecimal prin scaderea ; ecartului 30h xor ah,ah ; Zerorizarea lui AH = 0 mov bl,0ah ; Pregatim BL = 10 = 0Ah mul bl ; Conversia unitati-zeci add data1,ax; Aduna zecile la DATA1 mov al,byte ptr NouaData+6;Conversia unitatilor lunii, sub al,30h ; conversia ASCII-zecimal prin scaderea ; ecartului 30h mov luna,al ; Salveaza unitatile in variabila LUNA mov al,byte ptr NouaData+5; Conversia zecilor lunii, sub al,30h ; conversia ASCII-zecimal prin scaderea ; ecartului 30h mov bl,0ah ; Pregatim BL = 10 = 0Ah mul bl ; Conversia unitati-zeci ale lunii add al,luna ; Aduna unitatile la zeci xor ah,ah ; Zerorizarea lui AH = 0 shl ax,5 ; Deplasare la stanga cu 5 biti or data1,ax; Memorarea lunii in variabila DATA1 mov al,byte ptr NouaData+11; Conversia unitatilor anului, sub al,30h ; conversia ASCII-zecimal prin scaderea ; ecartului 30h xor ah,ah ; Zerorizarea lui AH = 0 mov anul,ax ; Salvarea unitatilor in varabila ANUL mov al,byte ptr NouaData+10; Conversia zecilor anului, sub al,30h ; conversia ASCII-zecimal prin scaderea ; ecartului 30h mov bl,0ah ; Pregatim BL = 10 = 0Ah mul bl ; Conversia unitati-zeci ale anului xor ah,ah ; Zerorizarea lui AH = 0 add anul,ax ; Aduna zecile la variabila ANUL mov al,byte ptr NouaData+9; Conversia sutelor anului sub al,30h ; conversia ASCII-zecimal prin sacaderea ; ecartului 30h xor ah,ah ; Zerorizarea lui AH = 0 mov bl,100 ; Pregatim BL = 100 = 064h mul bl ; Conversia unitati-sute ale anului xor ah,ah ; Zerorizarea lui AH = 0 add anul,ax ; Aduna sutele la variabila ANUL mov al,byte ptr NouaData+8; Conversia miilor anului sub al,30h ; conversia ASCII-zecimal prin scaderea ; ecartului 30h mov bx,1000 ; Pregatim BL = 1000 = 03E8h xor ah,ah ; Zerorizarea lui AH = 0 mul bx ; Conversia unitati-mii ale anului prin ; inmultirea cu 1000d add ax,anul ; Aduna sute,zeci si unitati la mii sub ax,1980 ; Culegem AX = AX - 1980 prin scaderea ; anului de referinta 1980 shl ax,9 ; Deplasare la stanga cu 9 biti or data1,ax; Memorarea anului in variabila DATA1 mov ah,1ah ; Modifica zona DTA (Disk Transfer ADDRESS) ; prin invocarea functiei 1Ah de setare a DTA lea dx,DTA ; Incarca adresa variabilei DTA in DX int 21h ; Lansarea efectiva a functiilor DOS mov cx,12 ; Initializeaza CX = 12 (dim camp) lea bx,DTA+1eh; Incarca adresa zonei unde se va scrie numele spatii1: ; fisierului si pune spatii in intreg campul mov byte ptr [bx],' '; Umple pozitia cu spatiu inc bx ; Incrementeaza indexul pentru camp loop spatii1 ; Inchide bucla de umplere cu spatii ; pana cand CX devine zero mov ah,4eh ; Cautarea primului fisier care de cautat mov cx,0 ; Se pregateste atributul CX = 0 fisier ; normal lea dx,nume ; DS:DX trebuie sa contina adresa numelui ; de cautat int 21h ; Lansarea efectiva a functiilor DOS, in ; acest caz se returneaza in AX codul erorii ; daca CF este setat, iar in DTA se incarca ; FileInfoRec daca nu-i eroare Iar: ; Eticheta de repetare a buclei mov dx,word ptr DTA+18h; Incarca data calendaristica ; a fisierului in registrul DX mov data,dx ; Salveaza aceasta data in variabila DATA mov ax,data1; In vederea compararii se culege DATA1 ; in registrul AX = DATA1 mov bx,data ; In registrul BX se incarca data ; calendaristica a fisierului curent, ; adica BX = DATA cmp ax,bx ; Cele doua valori sunt egale? jne Urmator ; NU, salt la eticheta URMATOR pentru ; urmatororul fisier din directorul curent inc nrfis ; DA, se incrementeaza numarul de fisiere ; care au aceeasi data calendaristica (NRFIS) mov ah,9 ; Se stabileste codul functiei de afisare al ; sirului cu adresa data de DS:DX, afisare ; pana la intalnirea caracterului "$" lea dx,DTA+1eh; Afiseaza numele fisierului gasit int 21h ; Lanseaza efectiv fuctiile DOS afis Raspuns ; Se pune intrebarea: sterge fisierul (d/n) ? mov ah,1 ; Citeste un caracter al optiunii int 21h ; folosind functiile DOS cmp al,64h ; Caracterul citit este 'd'? je Sterge ; DA, Salt la eticheta STERGE cmp al,44h ; NU, Caracterul citit este 'D'? jne Urmator1; NU, Salt la eticheta URMATOR1 Sterge: ; DA, Se face stergerea fisierului afis lfcr ; Afiseaza un rand nou mov ah,41h ; Se introduce codul functiei de stergere a ; unui fisier a carui nume se afla la ; adresa data de perechea DS:DX lea dx,DTA+1eh; Incarca adresa numelui fisierului in DX int 21h ; Lanseaza efectiv functiile DOS jmp Urmator ; Salt neconditionat la eticheta URMATOR Urmator1: ; Daca s-a citit caracterul "D" afis lfcr ; Afiseaza un rand nou Urmator: ; Continuare normala mov cx,12 ; Se culege numarul total de caractere ; continut in numele fisierului CX = 12 lea bx,DTA+1eh; Incarca in BX adresa zonei de unde se ; va scrie numele fisierului si pune spatii spatii: ; in aceasta zona (in bucla) folosind ; indexul din BX mov byte ptr [bx],' '; Muta un spatiu in campul a carui ; adresa se identifica prin indexul BX inc bx ; Incrementeaza indexul loop spatii ; Repeta secventa pana cand CX = 0 mov ah,4fh ; Cautarea urmatoruluilui fisier lea dx,DTA ; DS:DX trebuie sa contina adresa zonei DTA ; a fisierului de cautat int 21h ; Lansarea efectiva a functiilor DOS jnc Iar ; Daca CF=0 salt la eticheta IAR sfarsit: ; Tratare de incheiere cmp nrfis,0 ; Este NRFIS = 0? jne final ; NU, NRFIS <> 0 Salt la eticheta FINAL afis eroare ; Afiseaza un mesaj de eroare mov ah,0 ; Asteapta apasarea unei taste int 16h ; Lansarea serviciilor BIOS pt tastatura final: ; Finalizarea programului mov ah,4ch ; Functia de terminare a programului int 21h ; Lansarea functiilor DOS code ends ; Sfarsitul segmentului de cod end start ; Sfarsitul logic al programului cu ; precizarea punctului de intrare Pentru asamblare se utilizează comanda: tasm /la /zi prog7 iar pentru ediţia de legături comanda: tilink /t /v prog7 Figura 2 Mesajele afişate pe ecran la dezvoltarea programului PROG7 şi în cazul ştergerii fişierului PROG7 MAP (creat în 04-09-2008) PROGAMUL PROG8 ASM Prezentăm un program în limbaj de asamblare care simulează o structură CASE Programul sursă scris în limbaj de asamblare sete: ;============================================================ ; Program de simulare a structurii CASE utilizand tabelele ; de salt Adaptare dupa: G Musca "Programare in limbaj de ; asamblare" Ed TEORA Bucuresti 1997, pag 181 - 182 ;============================================================ model large stack 1024 ; Segmentul de stiva data ; Segmentul de date tabcase db 'A','B','C','D','E' tabsalt dw case1,case2,case3,case4,case5 nrcase dw 5 mes0 db 10,13,' Introduceti cazul A,B,C,D,E : $' mesa db 10,13,' Este activ cazul CASE 1 (A) $' mesb db 10,13,' Este activ cazul CASE 2 (B) $' mesc db 10,13,' Este activ cazul CASE 3 (C) $' mesd db 10,13,' Este activ cazul CASE 4 (D) $' mese db 10,13,' Este activ cazul CASE 5 (E) $' mesi db 10,13,' Este cazul implicit! $' mes db 10,13,' Reluati (D/N)? Enter termina programul: $' ras db 0 cr equ 0dh code ; Segmentul de cod ; ================ Proceduri ============================== mesaj proc ; Procedura de afisare a unui mesaj ; a carui adresa se gaseste in DX mov ah,09h ; Functia 09h asigura afisarea sirului ; de caractere ASCII pana la intalnirea ; primului caracter "$" int 21h ; Lansarea efectiva in lucru a functiilor DOS ret ; Intoarcere din procedura mesaj endp ; Sfarsitul logic al procedurii ; ========================================================= start: ; Definirea punctului de intrare ; in program mov ax,@data; Culege in AX adresa de inceput a ; segmentului de date mov ds,ax ; Aceasta adresa este salvata in DS mov es,ax ; Aceasta adresa este salvata in ES BREL: ; Bucla de reluare lea dx,mes0 ; Deplasarea lui MES0 se pune in DX call mesaj ; Apeleaza procedura de afisare a ; mesajului a carui adresa este in DX bucla: ; Definirea etichetei BUCLA mov ah,01h ; Citirea unui caracter de la tastatura int 21h ; Lansarea functiilor DOS mov ras,al ; Muta raspunsul din AL in variabila RAS cmp al,cr ; Este AL = "0Dh"? (Carry Return) je sfarsit ; DA, Salt la SFARSIT mov bl,61h ; NU, introduce car ASCII "a" in BL cmp al,bl ; Caracterul de raspuns este "a"? jnae ok ; Raspuns cu cod 0) ; se "scade" octetul adresat de DI, din ; valoarea acumulatorului AL si actualizeaza ; indicatorii de conditie jne casei ; Salt daca nu-i egalitate (ZF = 0) la ; eticheta CASAI dec di ; Altfel, decrementeaza registrul DI lea bx,tabcase; Incarca adresa efectiva a tabelei de ; cazuri TABCASE in BX (pt bazare) sub di,bx ; Scade din BX valoarea din DI pentru a ; obtine indexul din TABCASE shl di,1 ; Inmulteste DI cu 2 (prin shiftare) pentru a ; obtine indexul de TABSALT jmp tabsalt[di]; Salt neconditionat la eticheta de ; salt care corespunde indexului ; (aici este ideea subtila a programului) sfarsit: ; Terminare normala a programului mov ax,4c00h; Functia de terminare normala a programului int 21h ; Lansarea functiilor DOS si revenire in ; sistemul de operare bajut: jmp BREL ; Pentru a se permite salt peste mai ; mai mult de 129 de octeti case1: ; Cazul CASE 1 (A) lea dx,mesa ; Culege adresa mesajului call mesaj ; care corespunde lui CASE 1 (A) jmp caseii ; Salt neconditionat la cazul implicit case2: ; Cazul CASE 2 (B) lea dx,mesb ; Culege adresa mesajului call mesaj ; care corespunde lui CASE 2 (B) jmp caseii ; Salt neconditionat la cazul implicit case3: ; Cazul CASE 3 (C) lea dx,mesc ; Culege adresa mesajului call mesaj ; care corespunde lui CASE 3 (C) jmp caseii ; Salt neconditionat la cazul implicit case4: ; Cazul CASE 4 (D) lea dx,mesd ; Culege adresa mesajului call mesaj ; care corespunde lui CASE 4 (D) jmp caseii ; Salt neconditionat la cazul implicit case5: ; Cazul CASE 5 (E) lea dx,mese ; Culege adresa mesajului call mesaj ; care corespunde lui CASE 5 (E) jmp caseii ; Salt neconditianat la cazul implicit casei: ; Cazul CASE IMPLICIT lea dx,mesi ; Culege adresa mesajului call mesaj ; care corespunde lui CASE IMPLICIT caseii: ; Continuarea cazului implicit lea dx,mes ; In DX se culege adresa efectiva a ; mesajului MES (pentru reluare) call mesaj ; Apelul procedurii de afisare a mesajului mov ah,01h ; Citirea unui caracter de la tastatura int 21h ; Lansarea functiilor DOS cmp al,"d" ; Este "d"? je bajut ; DA, salt la BAJUT cmp al,"D" ; Este "D"? je bajut ; DA, Salt la BAJUT jmp bucla ; Salt neconditionat la eticheta BUCLA end start ; Sfarsitul logic al programului cu ; precizarea punctului de intrare in ; program (eticheta de lansare) Figura 3 Mesajele afişate pe ecran la dezvoltarea programului PROG8 şi în cazul testării executabilului PROG8 EXE PROGAMUL PROG9 ASM În programul care urmează se caută în primul rând să se determine directorul curent, apoi se solicită utilizatorului să introducă prin tastare o nouă cale, care aparţine aceleiaşi partiţii, şi schimbă directorul curent Textul sursă al programului scris în limbaj de asamblare este: model tiny ;================================================================ ; Enuntul problemei este: Sa se obtina directorul curent ; si sa se schimbe acesta cu altul, din aceiasi partitie, ; a carui cale va fi precizata de la tastatura ; ; Pentru rezolvarea acestei probleme se vor utiliza functiile DOS: ; 47h si 3Bh Functia 47H returneaza numele de cale pentru ; directorul curent al dispozitivului periferic ; Functia 3Bh schimba directorul curent ;================================================================ code segment assume cs:code,ds:code org 100h ; Program de tip COM start : ; Punctul de intrare in program jmp inceput ; Salt neconditionat peste zona de ; date, macrouri si proceduri ; ====== Zona de date ========================================== drive db 0 ; Initializarea variabilelor folosite x db 0 ; Retine codul de eroare schimbat db 10,13,'Directorul curent a fost schimbat $' esc3 db 10,13,'Calea specificata nu a fost gasita $' path db 64,0 db 64 dup (' '); Retine noua cale a dir curent cale db 10,13,'Specificati calea: $ ' buff db 64 dup (?); Buffer pentru determinarea dir curent ; ====== Procedura pentru afisarea mesajelor ==================== mesaj1 proc ; Procedura de afisare a unui mesaj mov ah,09h ; Afisarea unui sir de caractere cu offset-ul int 21h ; in DX pana la caracterul $ ret ; Revenire din procedura mesaj1 endp ; Sfarsitul logic al procedurii ; ====== Macrou pentru apelul functiilor DOS ==================== dosint macro func ; Definirea macroului de executie a ; unei functii DOS mov ah,func ; Culege numarul functiei in AH int 21h ; Lanseaza efectiv in executie a ; funtiilor DOS endm ; Sfarsitul logic al macroului ; ====== Procedura de determinare a directorului curent ========= get proc ; Procedura de determinare a dir curent mov dl,drive ; Incarca in DL variabila DRIVE mov si,offset buff; Incarca in SI adresa variabilei BUFF mov ah,47h ; Incarca in AH valoarea 47h care este ; numarul functiei DOS de determinare a ; directorului curent (Query Default ; Directory), la intrare in DL se da ; numarul driver-ului (0=implicit, ; 1=A, 2=B, etc ) in DS:DI trebuie ; data adresa zonei buffer-ului local ; pentru calea ce se va citi (de 60 ; octeti, iar in AX se va codul de ; eroare daca CF =1 int 21h ; Apelarea intreruperii 21h ret ; Revenire din procedura get endp ; Sfarsitul procedurii ; ====== Procedura de schimbare a directorului curent =========== cd proc ; Procedura de schimbare a dir curent mov bl,path+1 ; Incarca in BL lungimea sirului mov bh,0 ; Incarca in BH valoarea 0 mov path[bx+2],0; Pune 0 la sfarsitul sirului, ; pentru a se putea depista ; sfarsitul sirului lea dx,path+2 ; Incarca adresa caii in DX mov ah,3Bh ; Numarul functiei DOS de schimbare a ; directorului curent, in DS:DX se ; precizeaza adresa unui sir ASCII ; care reprezinta calea pentru un ; nume de director, iar dupa exe- ; cutie in AX se returneaza un cod ; de eroare daca CF=1 int 21h ; Schimba efectiv directorul curent jnc oksc ; Daca CF=0 salt la etichieta OKSC mov x,al ; Daca CF=1, salveaza codul de eroare ; in variabila X cmp x,3 ; Este X = 3? je caz03sc ; DA X =3, atunci salt neconditionat la ; eticheta CAZ03SC oksc: ; Cazul CF = 0 "Schimbare reusita" lea dx,schimbat; Incarca offset-ul variabilei ; SCHIMBAT in DX call mesaj1 ; Afiseaza mesajul de schimbare ; directorului curent jmp sfcd ; Salt neconditionat la sfarsitul ; procedurii de schimbare a ; directorului curent caz03sc: ; Cazul X = 3 lea dx,esc3 ; Incarca offset-ul variabilei ; ESC03 in DX call mesaj1 ; Afiseaza mesajul "Calea specificata ; nu a fost gasita" sfcd: ; Eticheta de incheiere a procedurii ret ; Revenirea din procedura de schimbare a ; directorului curent cd endp ; Sfarsitul logic al procedurii CD ; ====== Procedura de afisare pe ecran ========================= afisare proc ; Procedura de afisare push ax ; Salveaza continutul lui AX in stiva push si ; Salveaza continutul lui SI in stiva push dx ; Salveaza continutul lui DX in stiva puts 1: ; Definirea eticheta PUTS 1 mov dl,[si] ; Muta octetul de la adresa [SI] in DL test dl,dl ; Testeaza continutul lui DL jz puts 2 ; Daca este 0, salt la eticheta PUTS 2 dosint 2 ; Apel de functie 2 DOS de afisare a unui ; caracter, a carui cod ASCII se afla in DX inc si ; Incrementeaza indexul din SI jmp puts 1 ; Salt la eticheta PUTS 1 (inchide bucla) puts 2: ; Definim eticheta PUTS 2 pop dx ; Reface continutul lui DX din stiva pop si ; Reface continutul lui SI din stiva pop ax ; Reface continutul lui AX din stiva ret ; Revenire din procedura de afisare afisare endp ; Sfarsitul logic al procedurii ; ====== Procedura de citire a noii cai a directorului ========== citcale proc ; Proc de citire a caii de la tastatura lea dx,cale ; Incarca adresa variabilei CALE in DX call mesaj1 ; Afiseaza mesajul "Specificati calea: " lea dx,path ; Incarca adresa variabilei PATH in DX mov ah,0Ah ; Citeste un sir de caractere de la int 21h ; tastatura, cu ecou pe display ret ; Revenire din procedura de citire citcale endp ; Sfarsitul logic al procedurii ; ====== Zona de cod principal ================================= inceput: ; Programul principal call get ; Apelul procedurii GET de determinare ; a directorului curent mov si,offset buff; Culege in SI deplasamentul lui BUFF call afisare ; Apeleaza procedura AFISARE call citcale ; Apeleaza procedura CITCALE call cd ; Apeleaza procedura CD mov ah,4ch ; Terminarea normala a programului int 21h ; cu intoarcere in Sistemul de Operare code ends ; Sfarsitul logic al codului sursa end start ; Sfarsitul logic al programului cu ; precizarea punctului de intrare ; in program Figura 4 Mesajele afişate pe ecran la dezvoltarea programului PROG9 şi la testarea executabilului PROG9 COM PROGAMUL PROG10 ASM Programul următor similează un calculator rudimentar, în care se permite introducerea primului operand întreg, urmat de introducerea unuia din operatorii +, -, * sau /, apoi se introduce cel de-al doilea operand întreg, după care se efectuează calculele solititate, ca în final să se afişeze rezultatul Textul sursă al programului scris în limbaj de asamblare este următorul: model tiny code ; Exemplu de calculator simplu (+,-,*,/) pentru I8086 ; Exemplu de utilizare: ; Operand 1 Numar: 4 ;;; Macrou copiat din emu8086 inc ;;; ;==================================== ; Acest macrou afiseaza un caracter din AL si ; actualizeaza pozitia cursorului: putc macro car ; Macroinstr de afisare a unui caracter push ax ; Salvare AX in stiva mov al, car ; Muta caracterul car in AL mov ah, 0eh ; OEH este numarul functiei de afisare cu ; reactualizarea pozitiei cursorului a ; caracterului aflat in semiregistrul AL int 10h ; Lansarea efectiva in executie a ; functiilor BIOS de tastatura pop ax ; Reface continutul lui AX din stiva endm ; Sfarsitul macroinstructiunii org 100h ; Cream un program de tip COM start: ; Punctul de intrare in program jmp start1 ; Salt peste zona de date ; Definirea variabilelor de lucru: ;================================= msg0 db " Nota: Calculatorul lucreaza numai cu valori intregi” db “ !!!",0Dh,0Ah db " ",0Dh,0Ah,'$' msg1 db 0Dh,0Ah, ' Introduceti primul numar (Operand1) ' db ' : $' msg2 db " Introduceti operatorul (Operator2 = : +, -, *, sau / : $" msg3 db ' Introduceti al doilea numar (Operand3) : $' msg4 db 0dh,0ah ,' Rezultatul aproximativ dat de calculator este : $' msg5 db 0dh,0ah ,' Multumesc pentru utilizarea programului!' db ' Apasati orice tasta ', 0Dh,0Ah, '$' err1 db " Operator/Operand eronat!", 0Dh,0Ah , '$' ceva db " Si ceva $" ; Operatorii pot fi: '+','-','*','/' sau 'q' pentru ; iesirea in mijlocul calculului opr db '?' ; Primul si al doilea operand: num1 dw ? ; Primul operand, num2 dw ? ; Al doilea operand start1: ; A doua instructiune executabila a ; programului mov dx, offset msg0 ; Adresa mesajului MSG0 mov ah, 9 ; Numarul functiei de afisare a sirului, ; a carui adresa se gaseste in registul DX, ; pana la intalnirea caracterului "$" int 21h ; Lansarea efectiva in lucru a afisarii prin ; intermediul functiilor DOS lea dx, msg1; Culege adresa efectiva a lui MSG1 mov ah, 09h ; Sirul de afisat se afla la adresa din DS:DX, ; iar afisarea se va face pana la intalnirea ; primului caracter "$" int 21h ; Lansarea efectiva in lucru a afisarii prin ; intermediul functiilor DOS ; Obtinerea unui numar pe mai multe pozitii de la tastatura, ; si memorarea rezultatului in registrul CX: call CitNumar; Apelul procedurii de obtinere a unui ; numar pe mai multe pozitii de la tastatura, ; si memorarea rezultatului in registrul CX: mov num1, cx; Memoreaza primul numar: ; CARRY RETURN si NEW LINE putc 0Dh ; Efectueaza CARRY RETURN putc 0Ah ; Efectueaza NEW LINE lea dx, msg2; Culege adresa efectiva a lui MSG2 mov ah, 09h ; Sirul de afisat se afla la adresa din DS:DX, ; iar afisarea se va face pana la intalnirea ; primului caracter "$" int 21h ; Lansarea efectiva in lucru a afisarii prin ; intermediul functiilor DOS ; Obtinere operator: mov ah, 1 ; Functia de citire a unui caracter in AL int 21h ; Lansarea efectiva a citirii mov opr, al ; Culege operatorul din AL ; CARRY RETURN si NEW LINE putc 0Dh ; Efectueaza CARRY RETURN putc 0Ah ; Efectueaza NEW LINE cmp opr, 'q'; q - Iesire fortata in je exit ; mijlocul calculului cmp opr, '*'; Este inmultire? jb ORI ; DA, Salt neconditionat la eticheta ORI cmp opr, '/'; NU, Este Impartire? ja ORI ; DA, Salt neconditionat la aceiasi eticheta ; Sirul de iesire la DS:DX lea dx, msg3; Culege adresa efectiva a lui MSG3 mov ah, 09h ; Sirul de afisat se afla la adresa din DS:DX, ; iar afisarea se va face pana la intalnirea ; primului caracter "$" int 21h ; Lansarea efectiva in lucru a afisarii prin ; intermediul functiilor DOS ; Obtinerea unui numar pe mai multe pozitii de la tastatura, ; si memorarea rezultatului in registrul CX: call CitNumar; Apelul procedurii de obtinere a unui ; numar pe mai multe pozitii de la tastatura, ; si memorarea rezultatului in registrul CX: ; Memorarea celui de-al doilea numar mov num2, cx; Memoreaza al doilea numar lea dx, msg4; Culege adresa efectiva a lui MSG4 mov ah, 09h ; Sirul de afisat se afla la adresa din DS:DX, ; iar afisarea se va face pana la intalnirea ; primului caracter "$" int 21h ; Lansarea efectiva in lucru a afisarii prin ; intermediul functiilor DOS ; Tipul operatiei solicitate de utilizator: cmp opr, '+'; Este adunare? je ADUN ; DA, Salt neconditionat la ADUN cmp opr, '-'; NU, Este scadere? je SCAD ; DA, Salt neconditionat la SCAD cmp opr, '*'; NU, Este inmultire? je MULTI ; DA, Salt neconditionat la MULTI cmp opr, '/'; NU, Este impartire? je DIVI ; DA, Salt neconditionat la DIVI ; Alta decat cele de mai sus ORI: ; NU, Afiseaza mesajul de eroare lea dx, err1; Culege adresa efectiva a lui ERR1 mov ah, 09h ; Sirul de afisat se afla la adresa din DS:DX, ; iar afisarea se va face pana la intalnirea ; primului caracter "$" int 21h ; Lansarea efectiva in lucru a afisarii prin ; intermediul functiilor DOS exit: ; Afisare mesaj de incheiere lea dx, msg5; Culege adresa efectiva a lui MSG5 mov ah, 09h ; Sirul de afisat se afla la adresa din DS:DX, ; iar afisarea se va face pana la intalnirea ; primului caracter "$" int 21h ; Lansarea efectiva in lucru a afisarii prin ; intermediul functiilor DOS ; Asteapta orice tasta mov ah, 0 ; Functia de asteptare a unui caracter int 16h ; Lansarea efectiva a citirii mov ax,4C00h; Terminare program int 21h ; Lansare efectiva a terminarii ADUN: ; Este o operatie de adunare mov ax, num1; Culege primul operand in AX add ax, num2; Aduna la AX operandul al doilea si ; rezultatul se obtine in AX call AfisNum ; Afisare valoare din AX jmp exit ; Salt neconditionat la iesire SCAD: ; Este o operatie de scadere mov ax, num1; Culege primul operand in AX sub ax, num2; Scade din AX operandul al doilea si ; rezultatul se obtine in AX call AfisNum ; Afisare valoare din AX jmp exit ; Salt neconditionat la iesire MULTI: ; Este o operatie de inmultire mov ax, num1; Culege primul operand in AX imul num2 ; Inmulteste continutul lui AX cu ; operandul al doilea si rezultatul ; se obtine in perechea (DX:AX)=AX*NUM2 ; DX este ignorat deoarece acest calculator ; lucreaza numai cu numere intregi mici call AfisNum ; Afisare valoare din AX jmp exit ; Salt neconditionat la iesire DIVI: ; Este o operatie de impartire mov dx, 0 ; Zerorizarea lui DX, mai elegant ; ar fi: (XOR DX,DX) mov ax, num1; Culege primul operand in AX idiv num2 ; Imparteste continutul din perechea de ; registre AX si DX la ; operandul al doilea si rezultatul ; se obtine in AX=(DX:AX)/NUM2 (partea ; intreaga) si in DX (restul) cmp dx, 0 ; Restul este nul? jnz aprox ; NU, salt la eticheta APROX call AfisNum ; DA, Afiseaza valoarea din AX iar ; DX este ignorat deoarece acest calculator ; lucreaza numai cu numere intregi mici jmp exit ; Salt neconditionat la iesire aprox: ; Se face aproximare fortata call AfisNum ; Afisare valoare din AX lea dx, ceva; Culege adresa efectiva a lui CEVA mov ah, 09h ; Sirul de afisat se afla la adresa din DS:DX, ; iar afisarea se va face pana la intalnirea ; primului caracter "$" int 21h ; Lansarea efectiva in lucru a afisarii prin ; intermediul functiilor DOS jmp exit ; Salt neconditionat la iesire ;;; Aceasta functie este copiata din emu8086 inc ;;; ;=================================================== ; Obtinerea unui numar pe mai multe pozitii ; de la tastatura, si memorarea ; rezultatului in registrul CX: CitNumar proc near ; Procedura de citire a unui ; numar pe mai multe pozitii (mai ; multi digiti) push dx ; Salvarea continutului lui DX in stiva push ax ; Salvarea continutului lui AX in stiva push si ; Salvarea continutului lui SI in stiva mov cx, 0 ; Zerorizarea lui CX (mai ; bine: xor cx,cx ) ; Resetarea indicatorilor de conditii: mov cs:make minus, 0 ; Punerea pe zero a fanioanelor next digit: ; Urmatorul digit ; Obtinerea caracterului de la tastatura in AL mov ah, 00h ; Citirea caracterului in AL int 16h ; Lansarea functiilor BIOS de tastatura ; Si afisarea caracterului: mov ah, 0eh ; Functia de afisare cu actualizarea ; pozitiei cursorului int 10h ; Lansarea functiilor video-BIOS ; Verificarea pentru MINUS: cmp al, '-' ; Este caracterul ASCII "-"? je set minus; DA, salt neconditionat la SET MINUS ; Varificarea pentru ENTER: cmp al, 0dh ; Caracterul introdus este ; cumva CARRY RETURN? jne not cr ; NU, salt la eticheta NOT CR jmp stop input; DA, salt neconditionat la STOP INPUT not cr: ; Nu este caracterul CARRY RETURN cmp al, 8 ; A fost apasat cumva 'BACKSPACE'? jne backspace checked; NU, salt la BACKSPACE CHECKED mov dx, 0 ; DA, Repozitionarea ultimului digit pentru mov ax, cx ; pentru impartire: div cs:ten ; AX = DX:AX / 10 (DX-rest) mov cx, ax ; Culege rezultatul in CX putc ' ' ; sterge pozitia corespunzatoare digi- ; tului curent putc 8 ; Afiseaza din nou BACKSPACE jmp next digit; Salt neconditionat la NEXT DIGIT backspace checked: ; Nu a fost apasat BACKSPACE ; Permite numai digiti: cmp al, '0' ; In AL este codul ASCII a ; caracterului "0" jae ok AE 0 ; Sunt caractere numerice de forma ; "0", "1" "9", ":", ";", si ; "A" "Z" (peste codul "0") jmp remove not digit; Altfel nu sunt digiti care ; sa prezinte interes pentru noi ok AE 0: ; Posibil digiti cmp al, '9' ; Testeaza limita maxima pentru digiti, ; Este caracterul citit mai mic ; sau egal "9"? jbe ok digit; DA, salt la tratarea ca digit remove not digit: ; NU, nu este un digit putc 8 ; Afiseaza BACKSPACE putc ' ' ; Sterge anteriorul digit putc 8 ; Afiseaza din nou BACKSPACE jmp next digit; Salt neconditionat la ; obtinerea urmatorului digit ok digit: ; Este un digit ; Multiplica lui CX cu 10 (prima data rezultatul este zero) push ax ; Salvarea lui AX in stiva mov ax, cx ; Culege continutul lui CX in AX, in ; vederea efectuarii inmultirii cu 10 mul cs:ten ; In registrul dublu DX:AX ; se obtine rezultatul DX:AX = AX*10 mov cx, ax ; Partea mai putin semnificativa (AX) ; se culege in registrul CX pop ax ; Se reface continutul lui AX din stiva ; Verifica daca rezultatul inmultirii este reprezentat pe ; mai mult de 16 biti (daca numarul este prea mare) ; (Rezultatul trebuie sa fie doar pe 16 biti) cmp dx, 0 ; Continutul lui DX este nul? jne too big ; NU, Numarul este prea mare ; Converteste din codul ASCII binar: sub al, 30h ; DA, Scade ecartul pentru ; numerele ASCII in vedere ; convertirii lor in binar ; Aduna AL la CX: mov ah, 0 ; Zerorizeaza continutul lui AH ; fara a afecta AL care contine ; numarul in binar mov dx, cx ; Salvare, in cazul incare ; rezultatul va fi prea mare add cx, ax ; Aduna continutul lui AX la CX jc too big2; Salt neconditionat daca ; numarul este prea mare jmp next digit; Daca nu-i prea mare (cazul normal) set minus: ; Setarea rezultatului negativ mov cs:make minus, 1; se face cu valoarea 1 jmp next digit; Salt neconditionat la tratarea ; urmatorului digit too big2: ; Cazul 2 al rezultatului prea mare mov cx, dx ; Restaureaza valoarea salvata inainte mov dx, 0 ; DX este inainte de salvare! too big: ; Cazul rezultatului prea mare mov ax, cx ; Pregatim iar impartirea la 10 div cs:ten ; Face AX = DX:AX / 10 mov cx, ax ; Culege rezultatul in CX putc 8 ; Afiseaza BACKSPACE putc ' ' ; Sterge anteriorul digit introdus putc 8 ; Afiseaza din nou BACKSPACE jmp next digit ; Asteapta tasta Enter/Backspace stop input: ; Terminarea tratarii intrarilor ; Verificarea fanionului de semn: cmp cs:make minus, 0; Numar pozitiv? je not minus ; DA, Salt la NOT MINUS neg cx ; NU, se face negarea rezultatului ; aflat in CX not minus: ; Numar pozitiv pop si ; Reface SI din stiva pop ax ; Reface AX din stiva pop dx ; Reface DX din stiva ret ; Se reintoarce din procedura make minus DB ? ; Utilizat ca fanion de semn CitNumar ENDP ; Sfarsit de procedura ; Aceasta procedura afiseaza numarul din AX, ; utilizat cu AfisNum UNS la afisarea semnului numarului: AfisNum proc near ; Procedura de afisare push dx ; Salveaza DX in stiva push ax ; Salveaza AX in stiva cmp ax, 0 ; Numarul este cumva nul? jnz not zero; NU, salt la eticheta NOT ZERO putc '0' ; DA, Afiseaza caracterul "0" jmp printed ; Salt neconditionat la PRINTED not zero: ; Numarul nu este nul ; Verificarea SIGN lui AX, ; face valoarea absoluta daca numarul este negativ: cmp ax, 0 ; Numarul este cumva nul? jns positive; Salt daca nu-i pozitiv neg ax ; Daca este negativ, se va ; neaga continutul lui AX putc '-' ; Afiseaza caracterul "-" positive: ; Tratarea numarului ca pozitiv call AfisNum Uns; Apelul procedurii de afisare a unui ; numar fara semn din AX printed: pop ax ; Restaureaza AX din stiva pop dx ; Restaureaza DX din stiva ret ; Revenire din procedura AfisNum endp ; Sfarsitul logic al procedurii AfisNum Uns proc near ; Aceasta procedura afiseaza un numar fara semn ; din AX (nu doar pe un singur digit) ; permitand valori cuprinse intre 0 si 65535 (FFFF) push ax ; Salvarea continutului lui AX in stiva push bx ; Salvarea continutului lui BX in stiva push cx ; Salvarea continutului lui AX in stiva push dx ; Salvarea continutului lui CX in stiva mov cx, 1 ; Fanion pentru evitarea afisarii lui ; zero inaintea numarului ; (Rezultatul lui "/ 10000" permite obtinerea unui rezultat ; mai mic sau egal cu 9) mov bx, 10000; 2710h - Impartitor cmp ax, 0 ; AX este nul? jz print zero; DA, salt la PRINT ZERO begin print: ; Inceputul afisarii ; Verificare impartitor (daca este zero se face salt la END PRINT): cmp bx,0 ; BX este nul? jz end print; DA, salt la END PRINT ; Permite afisarea lui zero inaintea numarului: cmp cx, 0 ; NU, CX este nul? je calc ; DA, salt la CALC ; Daca AX ; rx, ry, marcat, text r2 BUTON ; Pentru fiecare r3 BUTON ; Variabila buton ; Doua butoane de titlu titl BUTON titl2 BUTON ',3> butoane dw 3 dup(0) ; Pointerii la butoane ; Codul sursa pentru functiile butoanelor 386P ; Functii specifice butoanelor: ; 1 Stergerea butonului CLEAN BUT proc ; Procedura de stergere a butonului pop dx ; Refac din stiva DX pop si ; Scot din stiva parametrul si refac IP-ul push dx ; Salvez in stiva DX mov byte ptr [si+ofs marcat],0; 0 -> marcat (stergere) ret ; Revenire din normala procedura CLEAN BUT endp ; Sfarsitul logic al procedurii de stergere SHOW buton proc ; 'Sintaxa' de apelare: push ofs buton, ; apoi: call show buton, dupa care ; afiseaza pe ecran butonul a carei adresa ; este trimisa ca parametru (ofs buton) pop dx ; Se reface continutul lui DX din stiva pop si ; Refac si SI care va contine adresa butonului push dx ; Salvam continutul lui DX in stiva push es ; Salvam continutul lui ES in stiva push SegVideo; Salvam segmentul video (in modul text) pop es ; Lucrez cu memoria video in mod text cld ; DF=0 -operatii pe siruri, catre adrese crescatoare lodsw ; Se copiaza cont celor doi octeti aflati ; la adresa data de DS:[SI] in AX si se ; calculeaza SI=SI+2 imul ax,160 ; Se inmulteste continutul lui AX cu 160 mov di,ax ; Rezultatul obtinut se copiaza in DI lodsw ; Se copiaza in AX doi octeti a caror adresa ; este data de DS:[SI] si apoi SI=SI+2 shl ax,1 ; AX va contine adresa ecran unde se face ; scrierea (se inmulteste cu 2 pt ca este ; prezent si octetul pentru atribut) add di,ax ; Pentru obtinerea adresei de scriere se aduna ; la DI adresa ecran unde se face scrierea lodsb ; Se copiaza in AL ce but este selectat, adica ; AL = acest buton este -> selectat cmp al,0 ; Este selectat? je @do sel ; DA, afiseaza-l in forma selectata jne @do unsel; NU, afiseaza-l neselectat, nu e nici apasat @do sel: ; Afisarea butonului selectat call CALC LEN; Aflu lungimea textului de pe buton call SHADOW PUT; Afisez butonul cu umbra lui pop es ; Se restaureaza ES din stiva ret ; Retur normal din procedura @do unsel: ; Afis but neselectat(apasat sau eliberat) ; in cazul acesta afisez butonul @afis eliberat: ; Afisarea butonului eliberat ; si incadrez numele intre 2 sageti care ; converg spre text push di ; Salveaza continutul lui DI in stiva call CALC LEN; Calculeaza lungimea textului de pe buton push cx ; Salveaza continutul lui CX in stiva call SHADOW PUT; Afiseaza la [DI] butonul *(SI) neselectat, ; ridicat, iar CX=lungimea text de pe buton pop cx ; Reface din stiva CX pop di ; Reface din stiva DI mov ah,AtrText; Culege atributul textului ATRTEXT in AH mov al,SgDr ; Introducem SgDr (16d) in AL stosw ; Memoreaza continutul lui AX la adresa data ; de perechea ES:[DI] si apoi DI = DI+2 shl cx,1 ; Se inmulteste continutul lui CX cu 2 add di,cx ; Rezultatul se aduna la DI ca sa afisam si ; sageata spre stanga add di,4 ; Se aduna valoarea 4 la DI mov al,SgSt ; Introducem SgSt (17d) in AL stosw ; Memoreaza continutul lui AX la adresa data ; de perechea ES:[DI] si apoi DI = DI+2 pop es ; Se reface din stiva cont registrului ES ret ; Retur normal din procedura SHOW buton ENDP ; Sfarsitul logic al proc de afisare buton ; OBS: procedurile din SHOW buton sunt apelate ; numai de ele insele SHOW PUSH BUTON proc ; Procedura de afisare a unui buton apasat ; OBS: procedura distruge continutul lui ES!!! push 0b800h ; Se salveaza in stiva adresa de inceput a ; memoriei video pop es ; Reface din stiva continutul lui ES pop dx ; Reface din stiva continutul lui DX pop si ; Refacem parametrul din stiva si punem ; la loc IP-ul push dx ; Salvam in stiva continutul lui DX push si ; Salvez in stiva parametrul, pentru ca ne ; va trebui la sfarsit sa apelez si procedura lui lodsw ; Incarca in AX valoarea randului AX=rnd imul ax,160 ; AX=rnd*160, dar aceasta instructiune nu functioneaza ; cu operand im16 numai la microprocesoarele evoluate, ; prin urmare trebuie sa fie directiva 386 neaparat! mov di,ax ; Rezultatul se depune in DI lodsw ; Se culege in AX continutul dat de perechea ; DS:[SI] (col) si apoi se face SI = SI + 2 shl ax,1 ; Se inmulteste continutul lui AX cu 2, ; adica AX=col*2 (deoarece in memoria video un ; octet este text si un octet este rezervat pentru ; atributul de afisare al textului) add di,ax ; Se aduna la AX ecartul pentru memoria ecran ; DI contine adresa de start la afisare mov ah,AtrSterg; Se culege atributul de stergere in AH pentru ; a face curat locul unde apare butonul apasat mov al,' ' ; la culoarea de fundal inc si ; Se sare peste octetul de marcare call CALC LEN ; Calculeaza lungimea textului de afisat add cx,4 ; Se adauga valoarea 4 ca sa lasam niste margini push cx ; Salvam in stiva valoarea din CX push di ; Salvam in stiva valoarea parametrului rep stosw ; Facem curat locul prin scrierea directa in ; memoria video a continutului lui AX la adresa ; din memoria video data de perechea ES:[DI], ; apoi se face automat DI = DI + 2 pop di ; Refacem din stiva valoarea lui DI pop cx ; Restaurez din stiva CX ca sa scriu textul push di ; Salvam in stiva registrul DI sub cx,4 ; Deplasam la dreapta textul cu o pozitie push cx ; Salvam CX pentru a curata umbrele add di,2 ; Adunam 2 la registrul DI call SHOW TXT ; Afisam textul stosw ; Mai pun 1 spatiu la coada stosw ; Inca 1 spatiu la coada pop cx ; Se restaureaza numarul de caractere add cx,4 ; la dimensiunea reala ; Acum trece la stergerea umbrei de sub buton pop di ; Se restaureaza din stiva DI add di,4 ; Pentru obtinerea valorii reale se aduna 4 stosw ; In AX se culege valoarea data de perechea ; ES:[DI] si apoi se face DI = DI + 2 sub di,4 ; Scade 4 din DI add di,160 ; Aduna valoarea 160 (80*2 coloane) mov ah,AtrCarUmbr; Atributele caracterului umbra se pune in AH rep stosw ; In mod repetat, in AX se culege valoarea data ; de perechea ES:[DI] si apoi se face DI = DI + 2 pop si ; Acum am refacut parametrul din stiva add si,OFS PROC ADDR; Pozitionez SI pe pointer-ul la procedura lodsw ; Se aduce in AX continutul de la adresa data de ; perechea DS:[SI] si apoi se face SI = SI + 2 mov cx,ax ; In vederea testarii daca pointer-ul ProcAddr ; este sau nu nul? se muta AX in CX jcxz @no call ; DA, daca este nul nu se va apela nimic sub si,2 ; NU, se revine cu SI pe pointer-ul ProcAddr int 3 ; Lansare Breackpoint Interrupt call dword ptr [si]; Registrul SI asigura apelarea, ATENTIE! ; Apel FAR! Deci procedurile specifice trebuie ; sa se termine obligatoriu cu un RETF! @no call: ; Daca DA, se sare la aceasta eticheta ret ; Se face retur normal din aceasta procedura SHOW PUSH BUTON endp; Sfarsitul logic al acestei proceduri CALC LEN PROC ; Aceasta procedura are rolul de a ; calcula lungimea textului de pe buton push si ; Salveaza continutul lui SI in stiva push ax ; Salveaza continutul lui AX in stiva mov cx,LgTxtBut; Culege in CX lungimea textului care ; insoteste butonul @calc len: ; Eticheta de calcul a lungimii lodsb ; Copiaza in AL ce se afla la adresa data de ; perechea DS:[SI] si apoi face SI = SI +1 cmp al,0 ; Continutul lui AL = 0? je @ok calc ; DA, totul este OK si se face salt la eticheta ; @OK CALC (gata) loop @calc len ; NU, se va relua in bucla calculul lungimii @ok calc: ; Pentru alternativa DA se continua in secventa mov bx,LgTxtBut; Culege in BX lungimea textului care va ; insoti butonul sub bx,cx ; Calculeaza: BX = BX - CX mov cx,bx ; Rezultatul se culege in CX, asa ca CX va fi ; CX = lungimea numelui butonului pop ax ; Restaureaza din stiva continutul lui AX pop si ; Restaureaza din stiva continutul lui SI ret ; Retur Normal din procedura CALC LEN ENDP ; Sfarsitul logic al procedurii SHADOW PUT PROC ; Afiseaza la [DI] but *(SI) neselectat, ridicat ; CX=lungimea textului de pe buton push cx ; Salveaza in stiva continutul lui CX push di ; Salveaza in stiva continutul lui DI add cx,4 ; Se vor umple spatiile unde intra si ; textul suplimentar (sagetile) mov ah,AtrUmplBut; Se culege in AH atributele caracterului ; de umplere mov al,CarUmplere; In Al se culege caracterul de umplere ; pe verticala '█' cld ; Se face resetarea lui DF (flagul de directie), ; adica tratarea sirurilor se face spre dreapta rep stosw ; In mod repetat, in AX se culege locatia ; data de perechea ES:[DI] si apoi ; se face incrementarea DI = DI + 2 mov ah,AtrCarUmbr; Culeg in AH atributele caracterului de ; umbra, in plus setez culoarea textului mov al,UmbraJos; Afisam umbra la stanga stosw ; Copiem direct in memoria video data de ; perechea ES:[DI] continutul lui AX si ; apoi se face DI = DI + 2, (scriere directa) pop di ; Se reface din stiva adresa ecran de la inceputul ; afisarii butonului push di ; O salvam din nou in stiva, deoarece vom avea ; nevoie de ea si mai incolo call SHOW TXT ; Apelam procedura de vizualizare a textului pop di ; Restaureaza din stiva continutul lui DI pop cx ; Restaureaza din stiva continutul lui CX push cx ; Salveaza in stiva continutul lui CX, deoarece ; urmaaza a fi alterat add cx,4 ; Se prevede spatiu si pentru cele doua sageti add di,160 ; Se trece la randul urmator ca sa fac umbra de ; sub fiecare buton add di,2 ; SE adauga +2, deoarece este deplasat cu ; 1 spre dreapta mov ah,AtrCarUmbr; Se seteaza culoarea caracterului de umbrire mov al,UmbraSus; In AL se culege caracterul de umbrire la ; stanga, adica umbra in partea superioara : '▀' rep stosw ; In mod repetat, continutul lui AX se inscrie ; direct in memoria video la adresa data de ; perechea ES:[DI] si apoi se face DI = DI + 2 pop cx ; Reface din stiva continutul lui CX ret ; Retur normal di procedura SHADOW PUT ENDP ; Sfarsitul logic al procedurii SHOW TXT PROC ; Procedura de afisare a textului mov ah,AtrText; Culege in AH atributele textului normal add di,4 ; Aduna la DI valoarea 4 (loc pentru sageti) push cx ; Salveaza continutul lui CX in stiva push bx ; Salveaza continutul lui BX in stiva xor bx,bx ; Zerorizeaza continutul lui BX mov cx,word ptr [si+LgTxtBut]; Muta continutul de la ; adresa data de SI + LgTxtBut in registrul CX, ; adica CX=TastHot-ul butonului @alta litera: ; Se determina HOT KEY (pozitia ; unde apare 'tasta fierbinte') lodsb ; Se Incarca in AL continutul adresei de memorie ; dat de perechea DS:[SI], apoi se face SI = SI + 1 cmp al,0 ; Compara continutul lui AL cu zero AL = 0? je @ok drw; DA, se face salt la eticheta @OK DRW inc bx ; NU, se incrementeaza BX, BX este utilizat ; aici ca si contor de afisaj cmp bx,cx ; S-a ajuns la tasta fierbinte? jne @do normal; NU, se afiseaza normal caracterul mov ah,AtrHot; DA, se afiseaza tasta 'fierbinte' cu o ; culoare mai aprinsa (intensa) stosw ; Se copiaza continutul lui AX direct in memoria ; video la adresa data de perechea ES:[DI] si ; apoi se face DI = DI + 2 mov ah,AtrText; Se revine apoi la text normal jmp @alta litera; Se face salt neconditionat la eticheta ; @ALTA LITERA (se trece mai departe) @do normal: ; Alternativa pentru text normal stosw ; Se copiaza continutul lui AX direct in memoria ; video la adresa data de perechea ES:[DI] si ; apoi se face DI = DI + 2 jmp @alta litera; Se face salt neconditionat la eticheta ; @ALTA LITERA (se trece mai departe) @ok drw: ; Alternativa in care continutul lui AL = 0 pop bx ; Reface din stiva continutul lui BX pop cx ; Reface din stiva continutul lui CX ret ; Retur normal din procedura SHOW TXT ENDP ; Sfarsitul logic al procedurii CHECK CLICK proc ; Parametrii sunt trimisi astfel: ; push mouse x ; push mouse y ; push offset buton pop dx ; Scot temporar din stiva IP-ul ; apoi extrag parametrii : pop si ; SI=pointer-ul la buton pop bx ; BX=mouse y -randul pop ax ; AX=mouse x -coloana push dx ; Refac IP-ul ; Verificam daca e mouse-ul pe un buton cmp bx,word ptr [si]; Este mouse-ul pe buton? jne @nu e pe buton; NU, salt la eticheta @NU E PE BUTON cmp ax,word ptr [si+2]; Este cursorul mai la dreapta de ; marginea butonului? jnae @nu e pe buton; NU, atunci nu e nimic aici push si ; Salvez registrul SI in stiva add si,OFS MARCAT+1; Pozitionez SI in dreptul numelui call CALC LEN ; Apelam calculul lungimii textului de ; afisat CX=lungimea textului de pe buton pop si ; Refacem din stiva continutul lui SI add cx,4 ; Calculam CX = CX + 4 add cx,word ptr [si+2]; Se aduna si coloana cmp ax,cx ; Comparam continutul lui AX cu cel a ; lui CX (sunt numere intregi si ; pozitive) Sunt egale? ja @nu e pe buton; NU, daca a depasit butonul, ; acesta nu este apasat ; Aici se executa cod daca butonul e apasat de mouse push si ; DA, Salvam in stiva pointer-ul la buton push si ; Apoi il trimitem normal ca parametru call SHOW PUSH BUTON; Se apeleaza procedura de afisare a ; unui buton apasat ; Astept pana se elibereaza butonul de mouse @iar: ; Eticheta de revenire in bucla mov ax,3 ; Functia 0003h asigura actualizare starii mouse-lui, ; prin returnarea la iesirea din ea a ; urmatoarelor informatii: ; -in BX starea butoanelor astfel: ; bitul 0 = 1 buton stanga apasat (BX&1) ; bitul 1 = 1 buton dreapta apasat (BX&2) ; bitul 2 = 1 butonul din mijloc apasat(BX&4) ; -in CX - Coordonata orizontala (in pixeli) ; -in DX - Coordonata verticala (in pixeli) ; OBS: Deoarece coordonatele se dau in pixeli si ; pentru lucru in modul text, inseamna ca aceste ; coordonate virtuale (pixeli) se divizzeaza cu 8 ; pentru a obtine numarul de coloane (X) si ; numarul de linii (Y) necesari in modul text int 33h ; Apelul intreruperii care gestioneaza functiile ; mouse-ului cmp bx,0 ; Este butonul stanga apasat? jne @iar ; NU, Se va relua bucla de la eticheta @IAR pop si ; DA, Se reface din stiva pointer-ul push si ; Care apoi se salveaza in stiva ca parametru call SHOW BUTON; Apelul procedurii de afisare pe ecran a ; butonului a carei adresa este trimisa ca ; val in varful stivei (ce s-a transmis prin ; ultimul "push") @nu e pe buton: ; Nu este pe buton ret ; Retur normal din procedura CHECK CLICK endp ; Sfarsitul logic al procedurii code ; ======================================== mov ax,3 ; Functia de setare a modului video text int 10h ; Pornesc modul text(al=3)(ah=0) push 0b800h ; Salvarea in stiva a adresei de inceput a ; memoriei video pop es ; Restaurarea din stiva a inceputului memoriei ; video, a continutului reg extra-segment xor di,di ; Zerorizarea registrului DI cld ; Resetarea lui DF (DF = 0) (pentru lucrul cu ; siruri dinspre stanga spre dreapta) mov ah,AtrSterg; Culege in AH a atributelor de stergere mov cx,80*25; Culege in CX dim ecranului exprimate ; in numar de caractere (80 col * 25 linii) mov al,'ţ' ; Culege in AL caracterul de stergere rep stosw ; In mod repetat (de 80*25 ori) se memoreaza ; cont lui AX direct in memoria Video la ; adresa data de perechea ES:[DI], apoi se ; face automat DI = DI + 2 push seg r1 ; Salveaza in stiva segmentul in care se afla ; variabila R1, care corespunde primului ; buton demonstrativ pop ds ; Se reface din stiva DS care va contine ; adresa de segment corespunzatoare butonului push ds ; Retine in stiva si valoarea lui DS, pop es ; Pe care apoi o restaureaza din stiva in ES ; Incarca vectorul butoane ================== mov word ptr butoane ,offset r1; Memoreaza offset-ul lui ; R1 vectorul BUTOANE mov word ptr butoane ,offset r2; Memoreaza offset-ul lui ; R1 vectorul BUTOANE mov word ptr butoane ,offset r3; Memoreaza offset-ul lui ; R1 vectorul BUTOANE push offset titl; Afisez titlul call SHOW BUTON; Apoi afisam butonul push offset titl2; Afisez titlul call SHOW BUTON; Apoi afisam butonul ; Afisez butoanele ===== push offset r1 ; Se salveaza ca parametru in stiva ; offset-ul butonului R1 call SHOW BUTON; Se apeleaza proc de afisare a butonului push offset r2 ; Se salveaza ca parametru in stiva ; offset-ul butonului R2 call SHOW BUTON; Se apeleaza proc de afisare a butonului push offset r3 ; Se salveaza ca parametru in stiva ; offset-ul butonului R3 call SHOW BUTON; Se apeleaza proc de afisare a butonului ; Setez pentru r3 procedura p 3 push cs ; pop word ptr r3 ProcAddr+2; Segmentul in word-ul HIGH mov word ptr r3 ProcAddr,offset p 3; Offset-ul in cel LOW ; Pentru r2 ->p 2 push cs ; pop word ptr r2 ProcAddr+2; Segmentul in word-ul HIGH mov word ptr r2 ProcAddr,offset p 2; Offset-ul in cel LOW ; Pentru r1 ->p 1 push cs ; pop word ptr r1 ProcAddr+2; Segmentul in word-ul HIGH mov word ptr r1 ProcAddr,offset p 1; Offset-ul in cel LOW ; BUCLA PRINCIPALA ====================== @main loop: ; Eticheta de inceput a buclei principale push offset r1; Salveaza offse-tul pentru butonul R1 call SHOW BUTON; Apelul procedurii de afisare a butonului push offset r2; Salveaza offse-tul pentru butonul R2 call SHOW BUTON; Apelul procedurii de afisare a butonului push offset r3; Salveaza offse-tul pentru butonul R3 call SHOW BUTON; Apelul procedurii de afisare a butonului xor ax,ax ; Zerorizarea continutului lui AX, functia ; de citire a unei taste int 16h ; Lansare efectiva a citirii unei tasta cmp ah,1 ; S-a apasat tasta ESC? jne @ok key ; NU, treci mai departe jmp @term prog; DA, terminare program @ok key: ; Tasta OK cmp ah,TAB ; S-a apasat tasta TAB? jne @vezi dr; NU, Vezi daca s-a apasat tasta ; sageata DREAPTA call next but; DA, Selecteaza urmatorul buton jmp @main loop; NU, Salt neconditionat la ; inceputul buclei principale @vezi dr: ; Testare tasta sageata DREAPTA cmp ah,DREAPTA; S-a apasat sageata dreapta? jne @vezi st; NU, salt la tastarea sagetii stanga call next but; DA, selecteaza urmatorul buton situat ; in DREAPTA celui curent jmp @main loop; NU, Salt neconditionat la ; inceputul buclei principale @vezi st: ; Testare tasta sageata STANGA cmp ah,STANGA; S-a apasat tasta sageata STANGA? jne @vezi cr; NU, Treci sa vezi daca este ENTER call prev but; DA, Selecteaza butonul precedent ; celui curent (lista circulara) jmp @main loop; NU, Salt neconditionat la ; inceputul buclei principale @vezi cr: ; Testare tasta ENTER cmp ah,ENTER ; Este tasta ENTER? jne @main loop; NU, Salt neconditionat la inceputul ; buclei principale call Dispecer; DA, S-a apasat ENTER, trebuie sa ; apelez DISPECER-ul pentru a pune in ; evidenta butonul apasat jmp @main loop ; Salt neconditionat la inceputul ; buclei principale @term prog: ; Terminarea normala a programului mov ax,3 ; Apelarea functiei Query Position and Size, ; care face si curat ecranul (OBS aceasta ; functie returneaza in: ; CX - linia de start a cursorului ; CL - linia de sfarsit a cursorului ; DH - randul curent ; DL - coloana curenta int 10h ; Lansarea efectiva in lucru a serviciilor video mov ax,4c00h; Functia de terminare normala a programului int 21h ; Lansarea efectiva in lucru a functiilor DOS ; ======================================== ; PROCEDURILE SPECIFICE BUTOANELOR PROGRAMULUI =================== p 1 proc ; Procedura butonului 1 mov byte ptr [my msg+14],'1'; Pregatire apel call shw txt ; Apeleaza procedura de afisare a unui text retf ; Procedura schimba un singur octet p 1 endp ; din mesajul afisat la apasare p 2 proc ; Procedura butonului 2 mov byte ptr [my msg+14],'2'; Pregatire apel call shw txt ; Apeleaza procedura de afisare a unui text retf ; Procedura schimba un singur octet p 2 endp ; din mesajul afisat la apasare p 3 proc ; Procedura butonului 3 mov byte ptr [my msg+14],'3'; Pregatire apel call shw txt ; Apeleaza procedura de afisare a unui text retf ; Procedura schimba un singur octet p 3 endp ; din mesajul afisat la apasare ; ATENTIE! Se termina cu RETF (sunt apelate ca proceduri FAR) shw txt proc ; Procedura afiseaza un mic text push es ; Salveaza in stiva continutul lui ES ; Afisez textul ====== mov di,160*10+64; Adresa relativa unde trebuie scris ; textul (80 col * 2 octeti pe caracter, al ; 10-la rand, a 64 coloana) push 0b800h ; Salveaza in stiva adr de inceputul memoriei ; video (pentru acces direct in mem video) pop es ; Se restaureaza din stiva registrul ES lea si,my msg; In SI se culege adr efectiva a lui MY MSG mov ah,AtrText; Culege in AH atributele textului normal cld ; Resetarea lui DF (DF = 0) (pentru lucrul cu ; siruri dinspre stanga spre dreapta) call prn txt ; Apeleaza procedura care afiseaza la ; ES:DI (din memori video) sirul de la adresa ; RAM data de perechea DS:SI, pana ce da de ; octetul 00h ; Si construieste in jurul lui o casuta ===== mov di,160*9+64; Adresa relativa unde trebuie scris ; textul (80 col * 2 octeti pe caracter, al ; 9-la rand, a 64 coloana) lea si,up box; In SI se culege adr efectiva a lui UP BOX call prn txt ; Apeleaza procedura care afiseaza la ; ES:DI (din memori video) sirul de la adresa ; RAM data de perechea DS:SI, pana ce da de ; octetul 00h ; Afisez si randul de sub text ===== mov di,160*11+64; Adresa relativa unde trebuie scris ; textul (80 col * 2 octeti pe caracter, al ; 11-la rand, a 64 coloana) lea si,down box; In SI se cul adr efectiva a lui DOWN BOX call prn txt ; Apeleaza procedura care afiseaza la ; ES:DI (din memori video) sirul de la adresa ; RAM data de perechea DS:SI, pana ce da de ; octetul 00h pop es ; Reface din stiva registrul ES xor ax,ax ; Zerorizeaza continutul lui AX, Functia de ; asteptare a apasarii unei taste int 16h ; Lansarea efectiva in lucru a functiilor de ; gestiune a tastaturii ret ; Procedura TREBUIE! sa fie FAR! ; Mesaje scurte care apar la pasarea butoanelor ============= my msg: ; Eticheta pentru mesajele scurte care ; apar la pasarea butoanelor db vert,' > APELARE p 3! *2) mov si,[si+bx]; SI=pointer la butonul selectat mov byte ptr [si+OFS MARCAT],1; Marchez but ca selectat ret ; Retur normal din procedura UPDATE BUT endp ; Sfarsit logic al procedurii ; FUNCTIA DISPECER: apasa butonul selectat Dispecer proc ; Procedura de dispecerizare xor bx,bx ; Zororizarea registrului BX mov bl,byte ptr [selectat]; BX=butonul dec bx ; In mod curent DEC este pentru ca se ; folosesca OFFSET-uri lea si,butoane; SI este un indice shl bx,1 ; Pe WORD-uri (deci la nivel de adresa-> *2) mov si,[si+bx]; SI = pointer la butonul selectat push si ; Salveaza in stiva continutul lui SI push si ; Il salveaza de data aceasta ca parametru call SHOW PUSH BUTON; Apeleaza procedura de afisare a unui ; buton apasat! ATENTIE: Aceasta procedura ; distruge continutul lui ES!!! pop si ; Restaureaza din stiva continutul lui SI push si ; Salveaza acelasi continut in stiva ca ; parametru pentru urmatoarea procedura ce va ; fi apelata call SHOW BUTON; Apelarea procedurii e afisare a butonului ret ; Retur normal din procedura DISPECER Dispecer endp ; Sfarsitul logic al procedurii de ; dispecerizare a butoanelor END ; Sfarsitul logic al programului sursa ; Deoarece nu s-a precizat nici o eticheta de ; startare, automat programul va porni de la ; prima instructiune executabila care apare ; dupa comanda CODE In cazul nostru este ; instructiunea "mov ax" Cea mai corecta ; metoda este sa definim eticheta de ; startare, pentru a ocoli eventualele ; erori de lansare a programului Pentru acest program asamblarea se face cu comanda: tasm /la /zi prog11 iar ediţia de legaturi cu comanda: tilink /v prog11 Figura 6 Ecranul obţinut la testarea executabilului PROG11 COM PROGAMUL PROG12 ASM Ne propunem să vă prezentăm un program în limbaj de asamblare care va realiza desenarea unui triunghi isoscel, cu laturile în diferite culori, pe ecranul monitorului MCGA Textul sursei programului este: ; - ; Program adaptat după: S L Phung Univ Edith Crawn Australia ; Task : Desenarea unui triunghi în diferite culori ; Fişier: Week5 1 asm Data: 03/03/01 ; - MODEL SMALL STACK 1000h DATA Msg DB "Orice tasta pentru a continua! $" ; Mesaj RandMsg EQU 19 ; Rândul de start al mesajului ColMsg EQU 8 ; Coloana de start a mesajului RandVarf EQU 110 ; Rândul poziţiei vârfului triunghiului ColVarf EQU 130 ; Coloana poziţiei vârfului triunghiului LungLat EQU 100 ; Lungimea laturii triunghiului RandBaza EQU RandVarf – LungLat; Rândul poziţiei bazei triung ColBaza EQU ColVarf - LungLat ; Coloana poziţiei de start a bazei LungBaza EQU 2* LungLat + 1 + 1; Lungimea bazei CulStanga EQU 1 ; Culoarea laturii din stânga (albastru) CulDreapta EQU 2 ; Culoarea laturii din dreapta (verde) CulBaza EQU 4 ; Culoarea bazei (roşu) CODE PrgPrin PROC FAR mov AX, @DATA ; Iniţializarea segmentului de date mov DS, AX call ModVideo13 ; Schimbarea modului video la MCGA call DesenareTriunghi ; Desenarea triunghiului call AfisMesaj ; Afişarea mesajului call AsteaptaTasta ; Aşteaptă apăsarea unei taste call StergeEcran ; Şterge ecranul în Modul Text, Mod 3 mov AX, 4C00h int 21h ; Terminare program (Exit) PrgPrin ENDP ; - ; - StergeEcran PROC NEAR ;Setează ecranul în modul text şi ca efect secundar îl şterge mov AH, 00h ; Funcţia de schimbare a modului video mov AL, 03h ; In modul 3 (Text) int 10h ; Apelul funcţiilor video BIOS ret ; Sfârşitul subrutinei StergeEcran ENDP ; - ; - ModVideo13 PROC NEAR mov AH, 00h ; Schimbarea parametrului de mod mov AL, 13h ; În Modul 13h (MCGA) int 10h ; Salt la serviciile BIOS ret ; Sfârşitul procedurii ModVideo13 ENDP ; - ; - AsteaptaTasta PROC NEAR mov AH, 00 ; Aşteaptă cheia parametru int 16h ; Apelarea serviciilor BIOS ret ; Sfârşitul procedurii AsteaptaTasta ENDP ; - ; - AfisMesaj PROC NEAR mov DH, RandMsg ; Setarea rândului pentru mesaj mov DL, ColMsg ; Setarea coloanei pentru mesaj call SetPozCursor ; Setarea poziţiei cursorului mov DX, OFFSET Msg ; Setarea adresei mesajului mov AH, 09 ; Afişarea unui sir terminat cu car $ int 21h ; Apelul funcţiei DOS de afişare ret ; Sfârşitul procedurii AfisMesaj ENDP ; - ; - SetPozCursor PROC NEAR ;Setarea poziţiei cursorului ;Intrări DH : Rândul pentru noua poziţie ; DL : Coloana pentru noua poziţie mov AH, 02 ; Funcţia de mutare a cursorului mov BH, 0 ; Setarea paginii video 0 int 10h ; Apelul serviciilor BIOS ret ; Sfârşitul procedurii SetPozCursor ENDP ; - ; - DesenareTriunghi PROC NEAR ; Desenarea triunghiului call DesStanga ; Desenarea unghiului stânga call DesDreapta ; Desenarea unghiului dreapta call DesBaza ; Desenarea bazei ret ; Sfârsitul procedurii DesenareTriunghi ENDP ; - ; - ScriePixel PROC NEAR ;Desenarea unui pixel la o locaţie dată ;Intrări: ; DX: Poziţia rândului pentru pixel ; CX: Poziţia coloanei pentru pixel ; AL: Culoarea pentru pixel mov AH, 0Ch ; Parametru de scriere pixel mov BH, 0 ; Pagina video = 0 int 10h ; Scrie pixel ret ; Sfârsitul procedurii ScriePixel ENDP ; - ; - DesStanga PROC NEAR ; Desenează muchia stângă mov SI, ColVarf ; SI conţine poziţia coloanei pentru pixel mov DX, RandVarf ; DX conţine poziţia rândului pentru pixel mov CX, LungLat ; CX conţine numărul de repetări PunePixelStanga: push CX ; Salvează contorul de buclare în stivă mov CX, SI ; Acum CX memorează poziţia coloanei mov AL, CulStanga ; Parametrul de culoare pentru pixel call ScriePixel ; Desenează un pixel(Rând = DX, Coloană = CX) dec SI ; Următorul pixel este în următoarea ; coloană din ştanga dec DX ; Următorul pixel este în ; următorul rând de sus pop CX ; Reface contorul de buclare din stivă loop PunePixelStanga; Repetă de CX ori ret ; Sfârşitul procedurii DesStanga ENDP ; - ; - DesDreapta PROC NEAR ;Desenează muchia din dreapta mov SI, ColVarf ; SI conţine poziţia coloanei pentru pixel mov DX, RandVarf ; DX conţine poziţia rândului pentru pixel mov CX, LungLat ; CX conţine numărul de repetări PunePixelDreapta: push CX ; Salvează contorul de buclare în stivă mov CX, SI ; Acum CX memorează poziţia coloanei mov AL, CulDreapta ; Parametrul de culoare pentru pixel call ScriePixel ; Desenează un pixel(Rând = DX, Coloana = CX) inc SI ; Următorul pixel este în următoarea ; coloană din dreapta dec DX ; Următorul pixel este din următorul ; rând în sus pop CX ; Reface contorul de buclare din stivă loop PunePixelDreapta ; Repetă de CX ori ret ; Sfârşitul procedurii DesDreapta ENDP ; - ; - DesBaza PROC NEAR mov SI, ColBaza ; SI conţine poziţia coloanei pentru pixel mov DX, RandBaza ; DX conţine poziţia radului pentru pixel mov CX, LungBaza ; CX conţine numărul de repetări PunePixelBaza: push CX ; Salvează contorul de buclare în stivă mov CX, SI ; Acum CX memorează poziţia coloanei mov AL, CulBaza ; Parametrul de culoare pentru pixel call ScriePixel ; Desenează un pixel(Rând = DX, Coloana = CX) inc SI ; Următorul pixel este în următoarea ; coloană din dreapta pop CX ; Reface contorul de buclare din stiva loop PunePixelBaza ; Repetă de CX ori ret ; Sfârsitul procedurii DesBaza ENDP ; END PrgPrin ; Sfârşitul textului sursă şi precizarea ; punctului de intrare în program Am ales acest exemplu pentru frumuseţea şi limpezimea prezentării structurate a codului sursă, cod care asamblat, linkedit-at şi executat realizează desenarea unui triunghi isoscel având laturile egale de 100 de pixeli, baza fiind de culoare roşie, muchia din stânga albastră şi cea din dreapta verde, iar vârful opus bazei este situat în partea inferioară a ecranului Vreau să vă avertizez că atunci când veţi testa programul anterior să nu cumva să introduceţi în comentarii diacriticele limbii române, deoarece veţi primi nişte ‘drăguţe’ de mesaje de eroare de genul ‘Unknown character’, ‘Extra characters on line’ şi multe altele legate de simboluri nedefinite Pentru a nu avea surprize de acest gen, folosiţi simbolurile standard ale tastaturii engleze Eu am folosit diacriticele doar pentru înţelegerea corectă de către dumneavoastră a semnificaţiei comentariului, lucru observat şi în generarea şirului Msg În segmentul de date sunt generate, cu directiva EQU, toate constantele (parametrizat) necesare în execuţia programului Astfel sunt generate valorile constantelor pentru definirea punctului de start în desenul triunghiului (RandVarf şi ColVarf desemnând valoarea în număr de pixeli a rândului şi coloanei de startare a desenului), lungimea în pixeli a laturii triunghiului (LungLat), coordonatele (în pixeli) ale celui de-al doilea vârf al bazei (RandBaza=RandVarf-LungLat şi ColBaza=RandVarf-LungLat) şi lungime a bazei (LungBaza=2*LungLat+2) sunt calculate după formulele indicate în paranteze, iar culorile sunt definite ca şi constante parametrizate Pentru temporizarea afişării se foloseşte o procedură care solicită apăsarea oricărei taste de către utilizator Dacă doriţi să vedeţi rolul acestei temporizări eliminaţi din program secvenţa de aşteptare a unei taste (call AsteaptaTasta din modulul program principal PrgPrin) În modulul principal, după iniţializarea segmentului de date prin schema devenită clasică, se apelează secvenţial procedurile de tip NEAR pentru schimbarea modului video curent în modul 13 MCGA (ModVideo13, mod de lucru grafic), apoi procedura pentru desenarea triunghiului (DesenareTriunghi), urmată de procedura de afişare a mesajului de atenţionare (AfisMesaj), de procedura de aşteptare a apăsării unei taste (AsteaptaTasta) şi de procedura de şterge a ecranului, iar în final se execută secvenţa clasică de terminare a programului Procedura de setare a modului video 13, ModVideo13, este o procedură de tip NEAR care foloseşte serviciile BIOS oferite de întreruperea 10h, numite servicii video, şi care se activează prin int 10h şi care trebuie să găsească în AL valoarea hexazecimală a modului care trebuie setat, iar în AH numărul serviciului video solicitat, în cazul de faţă serviciul 0 care semnifică dorinţa de schimbare a modului video Procedura DesenareTriunghi apelează trei proceduri DesStanga, DesDreapta şi DesBaza şi care fiecare dintre ele, apelează procedura de scriere a unui pixel ScriePixel Laturile triunghiului sunt desenate pixel cu pixel prin intermediul procedurii ScriePixel, de aceea la fiecare apelare a acestei proceduri trebuie ca în registrul DX să se afle abscisa X a pixelului, în CX ordonata Y a pixelului, iar în AL culoarea de desenare a acestuia Scrierea efectivă a pixelului se face prin intermediul serviciilor video (invocate prin instrucţiunea int 10h) utilizându-se funcţia 0Ch (încărcată în semiregistrul AH) şi precizându-se pagina video activă în care se face desenarea pixelului, pagină a cărei valoare se va încărca în semiregistrul BH (în cazul de faţă pagina video activă, în care se va face scrierea în momentul de faţă, este pagina video 0) Cele trei proceduri de desenare a laturilor triunghiului (DesStanga, DesDreapta şi DesBaza) aplică acelaşi principiu de desenare Fiecare conţine câte o buclă care se repetă de tot atâtea ori câţi pixeli sunt necesari pentru desenarea laturii Contorizarea numărului de pixeli se face scăzând din registrul CX a valorii 1 la fiecare desenare a unui pixel (la începutul ciclului registrul CX conţine numărul de repetări, adică lungimea laturii exprimată în pixeli) Organigrama de structură a acestui program este prezetată în figura 7, şi scoate în evidenţă atât nivelele de apelare ale procedurilor utilizate în cadrul acestui program în limbaj de asamblare, cât şi procedurile apelate din procedura principală EMBED WPDraw30 Drawing Figura 7 Organigrama de structură a programului PROG12 În acest caz asamblarea se face cu comanda: tasm /la /zi prog12 iar ediţia de legaturi cu comanda: tilink prog12 PROGAMUL PROG13 ASM Vă prezentăm un program în limbaj de asamblare care va realiza afişarea unei valori hexazecimale pe 32 de biţi Textul sursei programului este: ; - ;Program adaptat după: Dr Alexander Rassau Univ Edith Crawn Australia ; Program pentru afişarea unei valori hexazecimale pe 32 de biţi ; Fişier: Week3a asm Data: 14 09 2004 ; - MODEL SMALL STACK 1000h DATA ValHex DD 23FE12A4h ; Valoare pe 32 de biti CODE ProgPr PROC FAR mov AX, @DATA ; Initializarea registrului segment DS mov DS, AX call SetEcran ; Setarea modului pentru ecran si stergerea lui(1) call ConvDisp32 ; Converie si afisarea valorii pe 16 biti(2) call AsteaptaTasta ; Asteapta apasarea unei taste (pause program)(3) mov AX,4C00h ; Terminare program (Exit) int 21h ; Apelare efectiva a functiilor sistem ProgPr ENDP ; Sfarsitul procedurii ; - ; - SetEcran PROC NEAR ; Setarea modului ecran, iar ca efect secundar se ; face si stergerea ecranului mov AH, 00h ; Functia de schimbare a modului video mov AL, 03h ; La modul 3 (Text) int 10h ; Intr ptr apelarea functiilor video BIOS ret ; Retur din subrutina SetEcran ENDP ; Sfarsitul procedurii ; - ; -AsteaptaTasta PROC NEAR ; Procedura de asteptare a apasarii unei taste mov AH, 00 ; Functia de asteptare a apasarii unei taste int 16h ; Intr pentru serviciile BIOS ale tastaturii ret ; Retur din subrutina AsteaptaTasta ENDP ; Sfarsitul procedurii ; - ; -ConvDisp32 PROC NEAR ; Afisarea unei valori pe 32 de biti ; Intrare: ValHex = o valoare pe 32 de biti mov BH, BYTE PTR ValHex + 3 ; Incarcarea oct cel mai putin semnif call ConvAf8 ; Conversie & Afisarea octetului aflat in BH mov BH,BYTE PTR ValHex+2 ; Incarca cel de-al doilea octet semnif call ConvAf8 ; Conversie & Afisarea octetului aflat in BH mov BH,BYTE PTR ValHex + 1; Incarca cel de-al treilea octet semnif call ConvAf8 ; Conversie & Afisarea octetului aflat in BH mov BH,BYTE PTR ValHex ; Incarca octetul cel mai semnificativ call ConvAf8 ; Conversie & Afisarea octetului aflat in BH ret ; Retur din subrutina ConvDisp32 ENDP ; Sfarsitul procedurii ; - ; - ConvAf8 PROC NEAR ;Converia si afisarea unei valori pe 8 biti (1 octet) ;Intrare: Reg BH conţine octetul care trebuie convertit si afisat push AX ; Salvarea registrelor AX si CX in stiva push CX mov AL, BH ; Mutarea octetului in AL mov CL, 04 ; Numarul de biti shr AL, CL ; Extragerea lui low nibble and AL, 0Fh ; Stergerea bitilor superiori (0000 xxxx) or AL, 30h ; Aduna val 3 la bitii superiori (0011 xxxx) ; pentru a obtine codul ASCII al caracterului de afisat cmp AL, 39h ; Varifica daca-i intre 0 - 9 jna AfisHighNibble ; Daca DA duce la afisarea lui high nibble (0-9) add AL, 07h ; NU, aduna valoarea 07 pentru a obtine codul ; ASCII al unui caracter intre A - F AfisHighNibble: call AfisCar ; Apel afisare caracter mov AL, BH ; Remutarea octetului in AL and AL, 0Fh ; Stergerea bitilor superiori (0000 xxxx) or AL, 30h ; Aduna val 3 la bitii superiori (0011 xxxx) ; pentru a obtine codul ASCII al caracterului de afisat cmp AL, 39h ; Varifica daca-i intre 0 - 9 jna AfisLowNibble ; Daca DA trimite la afisarea lui low nibble (0-9) add AL, 07h ; NU, aduna valoarea 07 pentru a obtine codul ; ASCII al unui caracter intre A - F AfisLowNibble: call AfisCar ; Apel afisare caracter pop CX ; Reface registrii CX si AX din stiva pop AX ret ; Retur din subrutina ConvAf8 ENDP ; Sfarsitul procedurii ; - ; -AfisCar PROC NEAR ; Afisarea unui caracter ;Intrare: Codul ASCII al car ce trebuie afisat este in registrul AL push BX ; Salvarea registrului BX in stiva mov AH, 0Eh ; Codul functiei de scriere a unui caracter mov BX, 0h ; Setarea pag Video 0 in care se va mem caract int 10h ; Apelul functiilor video BIOS intreruperea 10h pop BX ; Refacerea registrului BX ret ; Retur din subrutina AfisCar ENDP ; Sfarsitul procedurii ; - END ProgPr ; Sfarsitul programului sursa si ; precizarea punctului de intrare in program EMBED WPDraw30 Drawing Figura 8 Organigrama de structură a programului PROG13 Şi aici trebuie remarcată scrierea structurată a programului, lucru ce-i conferă o foarte bună înţelegere a programului mai ales datorită comentariilor bine făcute Prezentam organigrama de structură în figura 8 Figura 9 Asamblarea şi linkeditarea programului PROG13 După lansarea în executie, pe ecran se va afişa valoarea: 23F312A4 PROGAMUL PROG14 ASM În continuare prezentăm un exemplu simplu pentru afişarea caracterelor ASCII cu codul cuprins între 0 şi 255 Textul sursei programului este: model small stack code ; - Afis ASCII Proc mov dl,00h ; Muta valoarea 00h in registrul DL mov cx,255 ; Numarul de caractere Rev: call Scrie Car ; Afiseaza caracterul inc dl ; Incrementeaza valoarea continuta de DL loop Rev ; Bucla de afisare mov ah,4ch ; Functia terminare int 21h ; Lansare functii BIOS Afis ASCII ENDP ; Sfarsitul procedurii ; - ; - Scrie Car PROC ; Procedura de afisare a unui caracter mov ah,2h ; Functie de afisare a unui caracter int 21h ; aflat in registrul DL ret ; Revenirea la procedura apelanta Scrie Car ENDP ; Sfarsitul procedurii ; - END Afis ASCII Programul afişează rezultatul din figura10 Figura 10 Mesajele afişate pe ecran la execuţia programului PROG14 Vă propun ca prin modificarea acestui program să obţineţi unul care să afişeze pe 10 coloane de perechi, fiecare pereche conţinând codul în hexazecimal şi caracterul afişat pe monitor Trebuie să acordaţi atenţie codurilor 07h (Bell), 0Ah (LF = Line Feed) şi 0Dh (CR = Carriage Return) PROGAMUL PROG15 ASM Să se realizeze două programe Primul program să creeze un fişier TXT TXT care să conţină o singură înregistrare şi care are trei câmpuri separate prin caracterul virgulă, unde în primul câmp se vor introduce prin tastare caractere alfabetice mici, in al doilea câmp se vor introduce caractere numerice şi in ultimul câmp se vor introduce caractere alfabetice mari Deoarece utilizatorul poate tasta orice, se vor lua măsuri de ignorare a tastelor care nu corespund datelor solicitate (se validează datele tastate) Al doilea program trebuie să consulte fişierul TXT TXT anterior creat şi să-l afişeze pe ecranul monitorului aşa cum se găseşte în fişier şi apoi să afişeze înregistrarea transformată, în care caracterele mici sunt transformate în majuscule şi invers Textul sursă al programului de creare al fişierului TXT TXT este: model tiny TEXT segment para public 'CODE' ; Segment de cod assume cs: TEXT, ds: TEXT org 100h ; Program de tip COM 386 ; - start: ; Punct de startare mov ax,cs mov ds,ax ; Initializare DS(DS=CS) mov dx,offset fisier ; Mutam in DX numele fisierului xor cx,cx ; Zerorizare CX mov ah,3ch ; Functia de creare fisier int 21h ; Executie jnc ok ; Continua daca nu sunt erori mov ah,9 ; Daca sunt,foloseste functia 9 mov dx,offset er fis ; Afiseaza mesajul de eroare int 21h ; Executie jmp OprireNC ; Terminare fara inchidere fisier ok: ; Eticheta mov Handle,ax ; Salveaza handle mov nr,0 ; Pune in nr 0 citire: ; Eticheta mov byte ptr [ultim], 0 ; Pune in Ultim 0 mov byte ptr [cifre],0 ; Citeste litere mov dx,offset cere sir1 ; Muta in DX mes pt litere mici mov cx,1024 ; Nr maxim de caractere in CX call Citeste ; Apel procedura mov byte ptr [cifre],1 ; Citeste cifre mov dx,offset cere nr ; Muta in DX mesajul cor mov cx,1024 ; In CX nr maxim de cifre citite call Citeste ; Apel procedura mov byte ptr [cifre],0 ; Citeste litere mov cx,1024 ; In CX nr maxim de caractere mov dx,offset cere sir2 ; In DX mesaj corespunzator mov byte ptr [ultim], 1 ; Este ult parametru, dai enter call Citeste ; Apel procedura inc nr ; Incrementare NR cmp nr,1 ; Compara nr cu 1 je oprire ; Salt daca sunt egale jmp citire ; Salt la eticheta Oprire: ; Eticheta mov ah,3eh ; Functia de deschidere fisier mov bx,Handle ; Se deschide fisierul int 21h ; Executie OprireNC: ; Eticheta mov ax,4c00h ; Iesire in DOS-terminare program int 21h ; Eticheta Citeste: ; Eticheta mov ah,9 ; Afiseaza mesajul folosind functia 9 int 21h ; Executie xor bx,bx ; Zerorizare BX Again: ; Eticheta call wait char ; Citeste cate un caracter cmp al,0Dh ; Verifica daca e enter je SM OUT ; Verifica cele introduse mov buffer[bx],al ; Pune in buffer pe AL inc bx ; Incrementare BX cmp bx,cx ; Verifica sa nu citesca mai mult de nr max jne Again ; Salt la eticheta in caz de neegalitate SM OUT: ; Eticheta mov cx,bx ; Pune in CX nr caractere citite jcxz Oprire ; Daca-i 0 se iese din program cmp byte ptr [ultim],1 ; Verifica daca e ultimul string je cu enter ; Daca DA salt la eticheta mov al,',' ; Daca NU pune in AL "," jmp completeaza ; Salt la eticheta cu enter: ; Eticheta mov byte ptr [buffer[bx]],0Dh ; Pune in buffer 0Dh mov al,0Ah ; Si in AL 0Ah inc bx ; Incrementare BX inc cx ; Si CX completeaza: ; Eticheta mov byte ptr [buffer[bx]],al ; Pune in buffer virgula sau enter inc cx ; Incrementare CX mov ah,40h ; Functia de scriere secventiala mov bx,Handle ; in fisier mov dx,offset buffer ; Ce sa scrie int 21h ; Executie ret ; Revenire wait char: ; Eticheta mov ah,8 ; Asteapta o tasta int 21h ; Executie cmp al,0Dh ; Verifica enter jne verificare ; Daca NU e salt la eticheta ret ; Revenire verificare: ; Eticheta cmp al,32 ; Verifica daca-i spatiu je tipareste ; salt la eticheta cmp al,2eh ; Verifica daca-i punct je tipareste ; salt la eticheta cmp byte ptr [cifre],1 ; Verifica daca-i val numerica je ver numar ; Daca DA salt la eticheta cmp [ultim],1 ; Verifica daca-i ultimul je mari ; Daca DA salt la eticheta cmp al,'A' ; Compara Al cu "A" jl wait char ; Salt daca e mai mic cmp al,'Z' ; Compara AL cu "Z" jg ver mica ; Salt daca-i mai mare mari: ; Eticheta cmp al,'A' ; Compara AL cu "A" jl wait char ; Salt daca-i mai mic cmp al,'Z' ; Compara AL cu "Z" jg wait char ; Salt daca-i mai mare jmp tipareste ; Salt la eticheta ver mica: ; Eticheta cmp al,'a' ; Compara AL cu "a" jl wait char ; Salt daca-i mai mic cmp al,'z' ; Compara AL cu "z" jg wait char ; Salt daca-i mai mare jmp tipareste ; Salt la eticheta ver numar: ; Eticheta cmp al,'0' ; Compara AL cu "0" jl wait char ; Salt daca-i mai mic cmp al,'9' ; Compara AL cu "9" jg wait char ; Salt daca-i mai mare cmp al,2eh ; Verifica daca e punct je wait char ; Salt daca este tipareste: ; Eticheta mov ah,2 ; Functie de tiparire a unui caracter mov dl,al ; In DL e caracterul de tiparit int 21h ; Executie ret ; Revenire ; - er fis DB 10,13,"Eroare la crearea fisierului !",10,13,"$" ; Mesaj cere sir1 DB 10,13,"Introduceti sirul de caractere mici : $",10,13 cere nr DB 10,13,"Introduceti nr real : $",10,13 ; Mesaj cere sir2 DB 10,13,"Introduceti sirul de caractere mari : $",10,13 buffer DB 1024 DUP(0) ; Marimea buffer-ului fisier DB "txt txt",0 ; Numele fisierului de creat Handle DW 0 ; Handle ultim DB 0 ; Semafor pt verificare cifre DB 0 ; Cifre nr DB 0 ; Contor ; - TEXT ends ; Sfarsit segment de cod end end start ; Sfarsit program Textul sursă al programului de afişare al fişierului TXT TXT şi de transformare al minusculelor în majuscule şi invers este: ;PROGRAMUL DE AFISARE SI TRANSFORMARE model small ; Specificare model stack 100h ; Marime stiva data ; Sectiune de date cale db "txt txt",0 ; Numele fisierului din care se citeste handle dw 0 ; Identificator bufer db 1 ; Bufer pt operatii I/O initial db "Datele Initiale sunt : $" ; Mesaj 1 final db "Datele Transformate sunt : $" ; Mesaj 2 eroare db "Eroare la deschidere fisier$" ; Mesaj de eroare code ; Sectiune de cod start: ; Eticheta mov ax,@data mov ds,ax ; Incarcarea registrului DS mov ah,3dh ; Functia de deschidere fisier mov al,0 ; Punem in AL zero mov dx,offset cale; In DX numele fisierului de codificat int 21h ; Executie mov handle,ax ; Salvare identificator mov ah,9 ; Folosind functia 9 mov dx,offset initial; Afisam mesajul pt text initial int 21h ; Executie Ciclu: ; Eticheta mov ah,3fh ; Functie de citire secventiala mov bx,handle ; din fisierul de intrare mov cx,1 ; Se citeste cate o inregistrare mov dx,offset bufer; se depune in bufer int 21h ; Executie or ax,ax ; Verifica octetii transferati jz finala ; Salt daca-i EOF mov ah,40h ; Functie de scriere secventiala mov bx,0 ; in fisierul de iesire mov cx,1 ; Se scrie cate o inregistrare mov dx,offset bufer; Depunere rezultat int 21h ; Executie jmp Ciclu ; Salt la eticheta(pt tot fisierul) finala: ; Eticheta mov ah,3eh ; Functie de inchidere mov bx,handle ; a fisierului de intrare int 21h ; Executie mov ah,3dh ; Functia de deschidere fisier mov al,0 ; Punem in AL zero mov dx,offset cale; In DX numele fisierului de codificat int 21h ; Executie jc gatas ; Salt in caz de eroare mov handle,ax ; Salvare identificator mov ah,9 ; Folosind functia 9 mov dx,offset final; Afisam mesaj pt text final int 21h ; Executie iar: ; Eticheta mov ah,3fh ; Functie de citire secventiala mov bx,handle ; din fisierul de intrare mov cx,1 ; Se citeste cate o inregistrare mov dx,offset bufer; Se depune in bufer int 21h ; Executie or ax,ax ; Verifica octetii transferati jz gata ; Salt daca-i EOF mov al,byte ptr [bufer]; Muta in AL caracterul citit cmp al,'A' ; Compara AL cu "A" jl err 1 ; Salt daca-i mai mic cmp al,'Z' ; Compara AL cu "Z" jg ver mica ; Salt daca e mai mare add al,32 ; Face litera mica din mare jmp scrie ; Salt la eticheta jmp next ; Salt la eticheta ver mica: ; Eticheta cmp al,'a' ; Compara AL cu "a" jl err 1 ; Salt daca-i mai mic cmp al,'z' ; Compara AL cu "z" jg err 1 ; Salt daca e mai mare sub al,32 ; Face litera mica din mare jmp scrie ; Salt la eticheta scrie: ; Eticheta mov ah,2 ; Functia de afisare a unui caracter mov dl,al ; Muta in DL caracterul de afisat int 21h ; Executie jmp iar ; Salt la eticheta next: ; Eticheta jmp iar ; Salt la eticheta err 1: ; Eticheta cmp al,32 ; Verifica daca-i spatiu je scrie ; Salt daca Este cmp al,47 ; Verifica daca-i cifra ja scrie ; Salt daca DA cmp al,44 ; Verifica daca-i virgula je scrie ; Salt la eticheta daca Este cmp al,46 ; Verifica daca-i punct je scrie ; Daca DA salt la eticheta jmp iar ; Salt la eticheta gatas: ; Eticheta mov ah,9 ; Folosind functia 9 mov dx,offset eroare ; Afisam mesajul de eroare int 21h ; Executie jmp gata ; Eticheta gata: ; Eticheta mov ah,3eh ; Functie de inchidere mov bx,handle ; a fisierului de intrare int 21h ; Executie mov ax,4c00h ; Iesire in DOS int 21h ; Executie end end start ; Sfarsit program + Punct de intrare Dacă la execuţia programului de creare a fişierului TXT TXT s-a tastat minusculele abcdefghij (confirmat prin Enter), urmat de cifrele 1234567890 şi majusculele ABCDEF, conţinutul fişierului este dat în figura 11 EMBED PBrush Figura 11 Continutul fisierului TXT TXT După execuţia celor două programe pe ecranul monitorului se afişează atât datele iniţiale cât şi datele transformate ca în captura următoare: EMBED PBrush Figura 12 Mesajele afişate pe ecran la execuţia celor două programe PROGAMUL PROG16 ASM Să se realizeze un program cu caracter didactic care să exemplifice modurile de adresare Textul sursă al programului este: model small stack 1024 data beta dw 6 tabela dw 10,100,200,50,25,75,125 TblM db "Modul adresare cu registru: mov ax, bx " db "Modul adresare imediata: mov ax, 12h " db "Modul adresare directa: mov ax, beta " db "Modul adresare indirecta cu registru:mov ax, [si] " db "Modul adresare cu baza: mov ax, [bx] beta " db "Modul adresare directa: mov ax, tabela[si] " db "Modul adresare indexata cu baza: mov ax, [bx] beta[si]" Mes db 10,13 db " $" numar hex DW 0 table db 0123456789ABCDEF' ; Tabela de conversie hexazecimala conv db 'AX=' string db 0,0,0,0,'$' ; Aici se depune sirul convertit code AfiMes PROC FAR ; Procedura de afisare mesaj mov cx,60 ; Se afiseaza 60 de caractere b: ; Inchidere bucla mov bx,si ; Pregatire registrul de baza BX add bx,cx ; Pregatire contor de ciclare CX mov al,[bx] TblM ; Culegere octet cel mai din dreapta mov bx,cx ; Reface registru de baza mov [bx] Mes+2,al ; Muta octetul cules anterior in mesaj loop b ; Repeta bucla pana cand CX=0 mov ah,9 ; Functia de afisare mesaj pana la $ mov dx, offset Mes ; Adresa de inceput a mesajului int 21h ; Lansarea efectiva a afisarii ret ; Retur din procedura AfiMes ENDP ; Sfarsit procedura ConvH PROC FAR ; Procedura de conversie in Hexa a lui AX mov ax,numar hex ; Valoarea de convertit mov si,offset string ; Adresa sir mov dx,4 ; 4 car ASCII vor rezulta mov di,ax ; AX > DI mov bx,offset table ; Adresa de inceput tabela conversie hex1: ; Inchidere bucla mov cx,4 ; Patru biti la stanga pentru rol di,cl ; a separa cifra mov ax,di ; Reface continutul lui AX and ax,0fh ; Masca de separatie pentru biti xor ah,ah ; Zerorizare AX xlatb ; Se ia din tabela caracterul ; ASCII potrivit mov [si],al ; Pune-l de o parte in sir inc si ; Incrementeaza indexul dec dx ; Decrementeaza valoarea lui DX jnz hex1 ; Mai sunt cifre de convertit? mov dx,offset conv ; Daca nu, afiseaza-le mov ah,9 ; cu functia 09h pana la $ int 21h ; Lanseaza afisarea ret ; Retur la procedura apelanta ConvH ENDP ; Sfarsitul procedurii de conversie start: ; Punctul de intrare in program mov ax, @data ; Culege adresa seg de date mov ds, ax ; Si-l depune in DS mov si, 0 ; Zerorizeaza indexul SI push si ; Salveaza in stiva SI call AfiMes ; Apelul procedurii de afisare mov bx,6 ; Valoarea 6 > BX mov ax, bx ; Modul adresare cu registru mov numar hex,ax ; Muta AX in numar hex call ConvH ; Apeleaza procedura de conversie pop si ; Reface continutul indexului add si,61 ; Modifica indexul cu lungime sir push si ; Salveaza in stiva SI call AfiMes ; Apelul procedurii de afisare mov ax, 12h ; Modul adresare imediata mov numar hex,ax ; Muta AX in numar hex call ConvH ; Apeleaza procedura de conversie pop si ; Reface continutul indexului add si,61 ; Modifica indexul cu lungime sir push si ; Salveaza in stiva SI call AfiMes ; Apelul procedurii de afisare mov ax, beta ; Modul adresare directa mov numar hex,ax ; Muta AX in numar hex call ConvH ; Apeleaza procedura de conversie pop si ; Reface continutul indexului add si,61 ; Modifica indexul cu lungime sir push si ; Salveaza in stiva SI call AfiMes ; Apelul procedurii de afisare mov ax, [si] ; Modul adresare indirecta cu registru mov numar hex,ax ; Muta AX in numar hex call ConvH ; Apeleaza procedura de conversie pop si ; Reface continutul indexului add si,61 ; Modifica indexul cu lungime sir push si ; Salveaza in stiva SI call AfiMes ; Apelul procedurii de afisare mov ax, [bx] beta ; Modul adresare cu baza mov numar hex,ax ; Muta AX in numar hex call ConvH ; Apeleaza procedura de conversie pop si ; Reface continutul indexului add si,61 ; Modifica indexul cu lungime sir push si ; Salveaza in stiva SI call AfiMes ; Apelul procedurii de afisare mov ax, tabela[si] ; Modul de adresare indexata mov numar hex,ax ; Muta AX in numar hex call ConvH ; Apeleaza procedura de conversie pop si ; Reface continutul indexului add si,61 ; Modifica indexul cu lungime sir push si ; Salveaza in stiva SI call AfiMes ; Apelul procedurii de afisare mov ax, [bx] beta[si] ; Modul adresare indexata cu baza mov numar hex,ax ; Muta AX in numar hex call ConvH ; Apeleaza procedura de conversie pop si ; Reface continutul indexului mov ah, 4ch ; Functia de terminare int 21h ; program END start ; Sfarsit sursa si precizarea ; punctului de intrare in program După execuţia acestui program se obţine imaginea din figura 13 EMBED PBrush Figura 13 Mesajele afişate pe ecran la execuţia programului de adresări PROGAMUL PROG17 ASM Să se realizeze un program cu caracter didactic care să afişeze data curentă şi timpul curent al calculatorului prin citiri repetate Textul sursă al programului este: ; Fisierul ceas asm model tiny code segment assume cs:code,ds:code org 100h ; Pregatirea unui program de tip COM start: mov ah,0fh ; Ctitirea modului video curent in int 10h ; AL - nr modului video, in AH - nr de ; caractere pe rand, iar in BH - nr ; paginii video active mov byte ptr pagina activa,bh ; Retinerea nr pg video active mov dx,offset mesaj1 ; DX - contine offset-ul primului ; text de afisat (Data ) mov ah,09h ; Functia de afisare a unui sir de int 21h ; caractere, terminat cu $ mov bh,byte ptr pagina activa ; In BH - pagina video activa mov ah,03h ; Citirea pozitiei si dimensiunii int 10h ; cursorului curent ; se returneaza in CX - ; dim cursorului (CH - linia de inceput, ; CL - linia de sf ) iar in DX - pozitia ; cursorului (DH - randul, DL - coloana) cmp dh,24 ; Se verifica daca randul este penultimul din ; pag video activa (avem doua randuri de afisat) jne salt; NU salt la eticheta salt dec dh ; DA decrementeaza randul curent (pentru a incapea ; cele doua randuri ce urmeaza a se afisa) salt: mov word ptr data curenta,dx ; data curenta AH loop LiniaUrm ; Inchide bucla la linia urmatoare inc di ; Incrementeaza DI stosw ; Scrie continutul lui AX la ; locatia de memorie definita de ES:DI, ; adica in memoria video si incrementeaza ; registrul DI cu 2 stosb ; Scrie continutul lui AL la ; locatia de memorie definita de ES:DI, ; adica in memoria video si incrementeaza ; registrul DI cu 1 endp DeseneazaBila ; Sfarsit procedura de desenare bila inc bx ; Urmatoarea culoare pop cx ; loop BilaUrm ; Inchide bucla la BilaUrm in al, 60h ; Citeste in AL de la portul 60h cmp al, 1 ; jne CercUrm ; Daca NU, la urmatorul cerc mov ax, 03h ; Daca DA, Setarea modului video 3h int 10h ; Lansare servicii Video ret ; Retur procedura endp princ ; Sfarsit procedura principala ; - ; Urmeaza o zona de date ; - AdrAlfa = $ ; Adresa unghilui ALFA Alfa dd 0 ; Unghiul ALFA AdrFi = $ - AdrAlfa ; Adresa unghiului Fi Fi dd 0 ; Unghiul Fi AdrRo = $ - AdrAlfa ; Adresa razei R0 Ro dd 50 0 ; Raza Ro AdrFiPas = $ - AdrAlfa ; Adresa pentru pasul unfhiului Fi FiPas dd 0 02454 ; Pasul unghiului Fi ales ca PI/128 AdrAlfaPas = $ - AdrAlfa ; Adresa pentru pasul unghiului Alfa AlfaPas dd 0 19634 ; Pasul unghiului Alfa ales ca PI/16 OX = $ - AdrAlfa ; Abscisa OY = $ - AdrAlfa + 4 ; Ordonata XCentru = 160 ; Abscisa centrului YCentru = 100 ; Ordonata centrului XYCentru = YCentru*320+XCentru ends Segm ; Sfarsit segment end start ; Sfarsit sursa si precizarea ; punctului de intrare in program Rog pe cei interesaţi să încerce sa se convingă ce va afişa programul dacă în a treia linie după eticheta PrimaLinie în loc de instrucţiunea add di,320-7 vor introduce instrucţiunea add di,320-5 sau instrucţiunea add di,320-20 Va merita efortul, vă sfătuiesc să încercaţi ANEXA A SETUL DE INSTRUCŢIUNI AL FAMILIEI 80X86 Pentru lucrarea de faţă am respectat convenţiile pentru notaţii folosite în lucrările şi , din dorinţa de uniformizare a notaţiilor Aceste convenţii de notaţii sunt redate în tabelul de mai jos, exact cum sunt prezentate în aceste lucrări 1 Neterminali NotaţieSemnificaţie srcSursă destDestinaţie regconţinutul unui registru de 8,16 sau 32 biţi excepţie fac registrele segment; reg8conţinutul unui registru de 8 biţi Reg16conţinutul unui registru de 16 biţi excepţie fac registrele segment Reg32conţinutul unui registru de 32 biţi sreg / segconţinutul unui registru segment accacumulatorul implicit de 8,16 sau 32 biţi rlutilizat pentru a desemna conţinutul jumătăţii inferioare a unui registru rhutilizat pentru a desemna conţinutul jumătăţii mai semnificative a unui reg Reg[i]se referă la bitul ce ocupă poziţia i în registru Reg[i j]se referă la sub-grupul format din biţi ce ocupă poziţiile i j într-un registru mem conţinutul unei locaţii de memorie (pe n octeţi), adresată cu unul dintre modurile de adresare permise pentru memoria de date , cu excepţia adresării imediate mem8conţinutul unei locaţii de memorie pe 1 octet Mem16conţinutul unei locaţii de memorie pe 2 octeţi Mem32conţinutul unei locaţii de memorie pe 4 octeţi Mem64conţinutul unei locaţii de memorie pe 8 octeţi mem l conţinutul jumătăţii inferioare (mai puţin semnificativă) a unei locaţii de memorie mem hconţinutul jumătăţii superioare (mai semnificativă ) a unei locaţii de memorie [reg]conţinutul unei locaţii a cărei adresă se află în registru [mem]conţinutul unei locaţii a cărei adresă este în altă locaţie (adres indirectă) adro adresa oarecare adr8o adresa pe 8 biţi adr16o adresa pe 16 biţi adr24o adresa pe 24 biţi adr32o adresa pe 32 biţi adr ljumătatea inferioară a unei adrese adr hjumătatea superioară a unei adrese dataoperand pe 8, 16 sau 32 biţi care face parte din formatul instr (adresare im ) opoperand oarecare: de tip data (adresare im ), aflat în un reg sau în memorie highbit (op)bitul cel mai semnificativ dintr-un operand opsizedimensiunea operandului : de 1,2 sau 4octeţi Sign ext End(op)extensie cu semn a operandului countun contor : de tip data (adresare imediată) sau aflat într-un registru offset \ dispun deplasament pe 8 sau 16 biţi (face parte din formatul instrucţiunii) selectselectorul unui segment portadresa (numărul de ordine) unui port de intrare\ieşire 2 Operatori NotaţieSemnificaţie ←desemnează o atribuire ↑desemnează o concatenare notdesemnează operaţia logică de complementare (negaţie) EMBED Equation 3 desemnează operaţia logică SAU &desemnează operaţia logică ŞI EMBED Equation 3 desemnează operaţia logică SAU EXCLUSIV +desemnează adunare -desemnează scădere *desemnează înmulţire divdesemnează împărţire între numere întregi moddesemnează restul împărţirii între numere întregi 3 Terminali NotaţieSemnificaţie R1,R2,A,AX,BPsunt nume de registre care se identifica cu conţinutul lor MEM, MEM1sunt nume de locaţii de se identifica cu conţinutul lor ADR, ADRnsunt nume de adrese Registre generale: 386, 486, Pentium (32 biţi) EAX - acumulator implicit EBX - conţine implicit o adresa de baza pentru anumite moduri de adr ECX - contor implicit EDX - acumulator extins implicit; în general, registru de date ESI - index pentru sursă; EDI - index pentru destinaţie EBP - indicatorul bazei în stiva ESP - indicatorul curent de stiva 86,186, 286, 386, 486, Pentium (16 biţi) AX - acumulator implicit BX - conţine implicit o adresa de baza pentru anumite moduri de adr CX - contor implicit DX - acumulator extins implicit; în general, registru de date SI - index pentru sursă; DI - index pentru destinaţie BP - indicatorul bazei în stiva SP - indicatorul curent de stiva 86,186, 286, 386, 486, Pentium (8 biţi) AH, AL - semiregistrele registrului acumulator BH, BL - semiregistrele registrului BX CH, CL - semiregistrele registrului CX DH, DL - semiregistrele registrului DX Registre de control: 86,186, 286, 386, 486, Pentium (16/32 biţi) IP, EIP - registrul indicator de instrucţiuni F, EF - registrul de fanioane 286, 386, 486, Pentium MSW - 'machine status word' GDTR - registru folosit în localizarea tabelei de descriptori globali LDRT - registru folosit în localizarea tabelei de descriptori locali IDTR - registru folosit în localizarea tabelei descriptorilor pt întreruperi TR - registru de proces ('task register') , folosit în multiprocesare 386,486, PentiumCR0 CR4 - registre de control , dimensiune de 32 biţi DR0 DR7 - registre pentru depanare , dimensiune de 32 biţi Registre de segment: 86,186, 286, 386, 486, Pentium (16 biţi)CS - registrul segment de program SS - registrul segment de stiva DS - registrul segment de date ES - registrul segment suplimentar de date 386, 486, Pentium (16 biţi) FS - registrul segment suplimentar GS - registrul segment suplimentar 4 Modul de afectare al fanioanelor Xfanionul se schimbă în conformitate cu rezultatul operaţiunii 1fanionul este setat necondiţionat 0fanionul este resetat necondiţionat ?fanionul este afectat impredictibil -fanionul nu este afectat Observaţii: Notaţia sreg : reg semnifică faptul că într-o pereche de registre (sreg şi reg) se găseşte o adresă logică (adresa segment şi adresa efectivă) Notaţii de tipul [sreg : reg] sunt echivalente cu ((sreg)↑0H+(reg)) De exemplu, [DS : BX] este echivalentă cu: ((DS)↑0H+(BX)) Tabelul care urmează prezintă lista instrucţiunilor grupate pe categorii, în ordine alfabetică în cadrul fiecărei categorii în parte, marcate cu caracterul „*” pentru fiecare procesor pe care sunt funcţionale, marcate cu caracterul „-” pentru fiecare procesor pe care sunt nefuncţionale şi cu precizarea dimensiunii operanzilor (Dim op) cu care sunt capabile să lucreze MnemonicNume instrucţiune808680186802868038680486PentiumDim op A TRANSFERURI DE DATE BSWAPByte Swap **32 INInput Byte or Word******8, 16, 32 LAHFLoad AH From Flags******8 LEALoad Effective Address******16, 32 LGDTLoad GDT Register ****- LIDTLoad IDT Register ****- LLDTLoad LDT Register ****16 LMSWLoad Machine Status Word ****16 LDS Load Pointer into Register and DS ****16, 32 LES Load Pointer into Register and ES ****16, 32 LFS Load Pointer into Register and FS ****16, 32 LGS Load Pointer into Register and GS ****16, 32 LSS Load Pointer into Register and SS ****16, 32 LSLLoad Segment Limit ****16, 32 LTRLoad Task Register ****16 MOVMove******8, 16, 32 MOVSXMove with Sign Extention -***8, 16, 32 MOVZXMove with Zerro Extention -***8, 16, 32 OUTOutput to Port******8, 16, 32 POPPop Segment Register******16 POPAPop All General Registers-*****16 POPADPop All General Registers -***32 POPFPop Stack into Flags******16 POPFDPop Stack into Flags -***32 PUSHPush Value onto Stack******8, 16, 32 PUSHAPush 16-bit General Rgs ******16 PUSHAD Push 32-bit General Registers -***32 SAHFStore AH in EFLAGS******8, 16, 32 SGDTStore GDT Register ****- SIDTStore IDT Register ****- SLDTStore LDT Register ****16 SMSW Store Machine Status Word- - ****16 STRStore Task Register ****16 XCHGExchange******8, 16, 32 XLATBTranslate Byte******- B OPERAŢII DE TRANSFER DE ŞIRURI CMPSCompare String******8, 16, 32 INSInput String from I/O Port-*****8, 16, 32 LODSLoad String******8, 16, 32 MOVSMove String******8, 16, 32 OUTSOutput String-*****8, 16, 32 REPRepeating String Prefix******- SCASScan String******8, 16, 32 STOSStore String******8, 16, 32 C OPERAŢII ARITMETICE AAA ASCII Adjust After Addition******8 AAD ASCII Adjust Before Division******16 AAM ASCII Adjust After Multiplication******8 AAS ASCII Adjust After Subtraction******8 ADCAdd with Carry******8, 16, 32 BOUNDCheck Array Boundaries-*****16, 32 CBWConvert Byte to Word******8 CDQ Convert DoubleWord to QuardWord******32 CMPCompare Integer******8, 16, 32 CMPXCHGCompare and Exchange **8, 16, 32 CWDConvert Word to DoubleWord******16 CWDEConvert Word to DoubleWord -***32 DAA Decimal Adjust AL After Adition******8 DAS Decimal Adjust AL After Substract******8 DECDecrement******8, 16, 32 DIVUnsigned Division******8, 16, 32 IDIVInteger (Signed) Division******8, 16, 32 IMUL Integer (Signed) Multiplication******8, 16, 32 INCIncrement******8, 16, 32 MULUnsigned Multiplication******8, 16, 32 NEGNegate Integer******8, 16, 32 SBBSubtract with Borrow******8, 16, 32 SUBSubtraction******8, 16, 32 XADExchange and Add **8, 16, 32 D OPERAŢII LOGICE, DEPLASĂRI ŞI RPTAŢII ANDBoolean AND******8, 16, 32 BSFBit Scan Forward -***16, 32 BSRBit Scan Reverse -***16, 32 NOTBoolean Complement******8, 16, 32 ORBoolean OR******8, 16, 32 RCL Rotate Through Carry Left* * * * * * 8, 16, 32 RCR Rotate Through Carry Right******8, 16, 32 ROLRotate Left******8, 16, 32 RORRotate Right******8, 16, 32 SALShift Left Arithmetic******8, 16, 32 RARShift Right Arithmetic******8, 16, 32 SHLShift Left Logical******8, 16, 32 SHLDShift Left Double -***16, 32 SHRShift Right Logical******8, 16, 32 SHRDShift Right Double -***16, 32 TESTTest Bits******8, 16, 32 XORBoolean Exclusive OR******8, 16, 32 E SALTURI NECONDIŢOINATE ŞI APELURI DE SUBPROGRAME JMPNear/Far Jump******- CALLFar/Near Procedure Call******8, 16, 48 RET Near Return From Soubrutine******8, 16, 32 RETF Far Return From Soubrutine** * * * * - F SALTURI CONDIŢIONATE JccJump if Condition cc JAJump if Above******- JAEJump if Above or Equal******- JBJump if Below******- JBEJump if Below or Equal******- JCJump if Carry******- JCXZJump if CX = 0******- JECXZJump if ECX = 0 ****- JEJump if Equal******- JGJump if Greater******- JGE Jump if Greater or Equal******- JLJump if Less******- JLEJump if Less or Equal******- JNAJump if Not Above******- JNAE Jump if Not Above or Equal******- JNBJump if Not Below******- JNBEJump if Not Below or Equal******- JNCJump if Not Carry******- JNEJump if Not Equal******- JNGJump if Not Greater******- JNGEJump if Not Greater or Equal******- JNLJump if Not Less******- JNLEJump if Not Less or Equal******- JNOJump if Not Overflow******- JNPJump if Not Parity******- JNSJump if Not Sign******- JNZJump if Not Zerro******- JOJump if Overflow******- JPJump if Parity******- JPEJump if Parity Even******- JPOJump if Parity Odd******- JSJump if Sign******- JZJump if Zerro******- G CONTROLUL ITERAŢIILOR LOOPDecrement ECX and Branch ******8, 16, 32 LOOPccDecrement ECX and Branch if cc LOOPZDec ECX and Branch if Zerro******8, 16, 32 LOOPNZDec ECX and Branch if Not Zero******8, 16, 32 LOOPEDec ECX and Branch if Equal******8, 16, 32 LOOPNEDec ECX and Branch if Not Equal******8, 16, 32 H OPERAŢII CU FANIOANE BTBit Test -***16, 32 BTCBit Test & Compl -***16, 32 BTRBit Test and Reset -***16, 32 BTSBit Test and Set -***16, 32 CLCClear Carry Flag******- CLDClear Direction Flag******- CLIClear Interrupt Flag******- CLTSClear Task Switched Bit ****- SETccSet Byte on Condition SETASet if Above -***8 SETAESet if Above or Equal -***8 SETBSet if Below -***8 SETBESet if Below or Equal -***8 SETCSet if Carry -***8 SETESet if Equal -***8 SETGSet if Greater -***8 SETGESet if Greater or Equal -***8 SETLSet if Less -***8 SETLESet if Less or Equal -***8 SETNASet if Not Above -***8 SETAESet if Not Above or Equal -***8 SETNBSet if Not Below -***8 SETNBESet if Not Below or Equal -***8 SETNCSet if Not Carry -***8 SETNESet if Not Equal -***8 SETNGSet if Not Greater -***8 SETNGESet if Not Greater or Equal -***8 SETNLSet if Not Less -***8 SETNLESet if Not Less or Equal -***8 SETNOSet if Not Overflow -***8 SETNPSet if Not Parity -***8 SETNSSet if Not Sign -***8 SETNZSet if Not Zerro -***8 SETOSet if Overflow -***8 SETPSet if Parity -***8 SETPESet if Parity Even -***8 SETPOSet if Paritz Odd -***8 SETSSet if Sign -***8 SETZSet if Zerro -***8 STCSet Carry Flag******- STDSet Direction Flag******- STISet Interrupt Flag******- I ÎNTRERUPERI SOFTWARE INTSoftware Interrupt******- INTOInterrupt on Overflow******- IRETInterrupt Return******- J INSTRUCŢIUNI SPECIALE DE CONTROL ARPLAdjust RPL Field of Selector ****16 ENTEREnter New Stack -*****8, 16, 32 HLTHalt******- INVDInvalidate Cache **- INVLPGInvalidate TBL Entry **32 LARLoad Acces Rights ****16, 32 LEAVELeave Current Stack Frame******16, 32 LOCKAssert Hardware Lock/Signal Prefix******- NOPNo Operation******- VERRVerify Read Acces ****16 VERWVerify Write Acces ****16 WAITWait Until Not Busy******- WBINVWrite-Back and Invalidate Cache **- Tabelul care urmează prezintă lista instrucţiunilor în ordine alfabetică, instrucţiuni specifice prelucrărilor în virgulă, care se adresează coprocesorului matematic şi care sunt marcate cu caracterul „*” pentru fiecare coprocesor pe care sunt funcţionale, sau marcate cu caracterul „-” pentru fiecare coprocesor pe care sunt nefuncţionale Reamintim că începând de la I 80486, coprocesorul matematic a fost integrat în microprocesor MnemonicNume instrucţiune808780187802878038780486Pentium FABSAbsolute Value*-**** FADDAddition*-**** FBLDBCD Load*-**** FBSTPBCD Store and Pop*-**** FCHSChange Sign*-**** FCLEXClear Exceptions*-**** FCOMCompare*-**** FCOSCosine -*** FDECSTPDecrement Stack Pointer*-**** FDIVDivision*-**** FDIVRDivision Reversed*-**** FFREEFree NDP Register*-**** FIADDInteger Addition*-**** FICOMInteger Compare*-**** FIDIVInteger Division*-**** FILDInteger Load*-**** FIMULInteger Multiplication*-**** FINCSTPIncrement Stack Pointer*-**** FINITInitialize NDP*-**** FISTInteger Store*-**** FISUBInteger Subtraction*-**** FISUBRInteger Subtraction Reversed*-**** FLDLoad Real*-**** FLDconstLoad Constant FLD1Push 1 0*-**** FLDL2EPush log2(e)*-**** FLDL2TPush log2(10)*-**** FLDLG2Push log10(2)*-**** FLDLN2Push ln(2)*-**** FLDPIPush PI*-**** FLDZPush +0 0*-**** FLDCWLoad Control Word*-**** FPREMPartial Remainder*-**** FPREM1IEEE Partial Remainder -*** FPTANPartial Tangent*-**** FRNDINTRound to Integer*-**** FRSTORRestore NDP State*-**** FSAVESave NDP State*-**** FSCALEScale by 2n*-**** FSETPMSet Protected Mode **** FSINSine **** FSINCOSSine and Cosine **** FSQRTSquare Root*-**** FSTStore Floting Point*-**** FSTCWStore Control Word*-**** FSTENVStore Environment *-**** FSTSWStore Status Word*-**** FSUBSubtraction*-**** FSUBRSubtraction Reversed*-**** FTSTTest for Zerro*-**** FUCOMUnordered Compare -*** FWAITWait Until Not Busy*-**** FXAMExamine Top of Stack*-**** FXCHExchange Stack Elements*-**** FXTRACTExtract Floting-Point Components*-**** FYL2XCompute Y*log2X*-**** FYL2XP1Compute Y*log2(X+1)*-**** F2XM1Compute 2x-1*-**** ANEXA B OPŢIUNILE DE ASAMBLARE, LINKEDITERE ŞI DEPANARE B 1 ASAMBLORUL tasm Referinţele se fac la programul Turbo Assembler Version 2 0 Copyright © 1988, 1990 Borland International Sintaxa: TASM [opţiuni] sursă [,fisobiect] [,fislisting] [,xref] OpţiuniSemnificaţie /a,/sSegmentul de cod afişat în ordine alfabetică sau sursă /cGenerează referinţele încrucişate în listing /dSYM[=VAL]Defineşte simbolul SYM = 0, sau = cu valoarea VAL /e, /rInstrucţiunile în virgulă mobilă sunt Emulate sau de tip Real /h, /? Afişarea acestui ecran /iPATHCaută căile fişierelor incluse în PATH /jCMDBlocaj într-o directivă de asamblare CMD (exemplu /jIDEAL) /kh#, /ks#Capacitatea tabelului Hash #, Capacitatea spaţiu a şirului # /l, /laGenerare listing: l = listing normal, la = listing extins /ml, /mx, /mu Senzitivitatea simbolurilor: ml = toate, mx = globale, mu = nici unul /mv#Setarea lungimii maxime valide a simbolurilor /m# Permite # faze multiple pentru rezolvarea referinţelor anterioare /nSuprimă tabelele de simboluri în listare /o, /opGenerează cod obiect suprapus, stil Phar Lap (32-biţi) /pVerifică suprapuneri de cod segment în mod protejat /qSuprimă articolele OBJ care nu sunt necesare pentru link-editare /tSuprimă mesajele dacă asamblarea s-a făcut cu succes /w0, /w1, /w2Setează nivelul de avertizare: w0 = fără, w1 = w2 = permite avertizarea /w-xxx, /w+xxxDezactivare (-) sau activare (+) avertizare xxx /xInclude condiţionări puse în listing /zAfişează linia sursă cu mesajele de eroare /zi, /zdInformaţii de debug: zi = full, zd = numere de linie numai Turbo Link Version 3 0 B 2 TURBO LINKEDIT-ORUL tlink Referinţele se fac la programul TLINK 3 0 Copyright © 1987, 1990 Borland International Sintaxa: TLINK fisobj [,fisexe] [,fismap] [,fislib] OpţiuniSemnificaţie /mUtilizare cu fişiere MAP publice /xNu sunt fişiere MAP de loc /iiniţializează toate segmentele /l include numerele liniei sursă /shartă detaliată a segmentelor /nnu există bibliotecă implicită /davertizează asupra existenţei unor simboluri duble în biblioteci /csimboluri puţin semnificative /3permite procesarea pe 32 de biţi /vincluderea informaţiilor de depanare (full) /eignoră Extended Dictionary /tcreează un fişier de tip COM /oswitch de suprapunere /yeswapping de memorie expandată /yxswapping de memorie extinsă @xxxxIndică utilizarea fişierului de răspuns xxxx B 3 TURBO DEBUGER-UL td Sintaxa: TD [opţiuni] [program [argumente]] OpţiuniSemnificaţie -x- Opţiune inversă x off -c Foloseşte fişierul de configurare -do,-dp, -dsActualizare ecran: do = alt display, dp = pagină flip, ds = swap ecran -h,-?Afişează acest ecran de help -iPermite inversarea de proces ID -kPermite înregistrarea apăsării unei taste -lStartup-ul asamblorului -m Setarea dimensiunii heap-ului # kbiţi -pFolosire mouse -rFolosire depanare de la distanţă -rp Setarea portului COM # pentru legătură la distanţă -rs Viteza de legătură la distanţă: 1 = mică, 2 = medie, 3 = mare -scNici o verificare pe simboluri -sd Directorul fişierului sursă -sm Setarea simbolului în memorie la # Kbiţi (max 256Kb) -vgSalvarea completă a ecranului grafic -vnNu sunt permise 43/50 linii de afişat -vpActivează EGA/VGA salvare de paletă -y Setează zona de suprapunere la dimensiunea de # Kb -ye Setează zona de suprapunere EMS la # 16Kb pe pagină ANEXA C ANEXA D EMBED WPDraw30 Drawing Cuprins SEQ CHAPTER \h \r 1WWW 9999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 SEQ CHAPTER \h \r 1WWW 9999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 SEQ CHAPTER \h \r 1WWW 9999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 SEQ CHAPTER \h \r 1WWW 9999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 SEQ CHAPTER \h \r 1WWW 9999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 SEQ CHAPTER \h \r 1WWW 9999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 SEQ CHAPTER \h \r 1WWW 9999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 SEQ CHAPTER \h \r 1WWW 9999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 SEQ CHAPTER \h \r 1WWW 9999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 SEQ CHAPTER \h \r 1WWW 9999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 GGGG 999 